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TECHNICAL MEMORANDUM 


HUBBLE SPACE TELESCOPE SIX-BATTERY TEST BED 

BACKGROUND 


A power system test bed has been developed to test the Hubble Space Telescope (HST) 
power system using nickel-cadmium (Ni-Cd) batteries. The test bed provides orbital simulation for 
charging and discharging the batteries under various operational configurations. Orbital sequencing 
and data acquisition is accomplished by the data acquisition system (DAS) with solar array simula- 
tion (SAS) and load sequencing controlled by the control computer (CC). 

The test bed provides space and control for a six-battery power system configuration. The 
batteries are assembled from Eagle-Picher type 44 Ni-Cd cells, assembled in flight type cases and 
incorporate battery protection and reconditioning circuits (BPRC). 

Test operations are designed for continuous, unattended, operations 24 hours a day. 365 
days a year. This type of long term operation (3 to 5 years) requires special considerations for 
accumulation of data, failure protection, and protection of the test articles and supporting 
equipment. 


PURPOSE 


The HST six-battery Ni-Cd test bed was designed to provide a testing facility for the HST 
power sytem flight configuration. Testing operations were designed to simulate the HST power 
operations at liftoff, solar array deployment, orbital insertion, and in-orbit operations. The facility 
also simulates battery environment temperatures. Data collection and subsequent analysis require 
large volumes of data for trend analysis and anomaly investigation. 


SYSTEM CONFIGURATION 

A diagram of the HST flight operating system is shown in figure 1. Figure 2 is a block 
diagram of the test bed. Total duplication of the fight system is, of course, impossible, but every 
attempt was made to duplicate flight operations on the batteries and their operation in the system. 
Certain modifications were made to the physical battery configuration to allow insertion in an 
environmental chamber and for additional nonflight instrumentation, such as cell pressures, cell 
voltages, and additional temperature measurements. The test bed is located in building 4475. rooms 
139 and 140. The test bed configuration design also includes provisions for real-time, real-data 
transmission to an expert system development test bed (NICBES). 


CHAMBER AND BATTERY PHYSICAL CONFIGURATION 


The environmental chamber employed in a test bed has a 64 ft 3 (4x4x4 ft) operating space 
with a conditioned gas inlet at the bottom rear and an exhaust outlet at the top rear. The chamber 
is purge wit dry nitrogen as the environmental medium. The nitrogen reduces the likelihood of 
condensation during operation and when the chamber must be opened for test bed repairs or recon- 
figuration of Physical devices. The nitrogen is under a slight positive pressure and is vented to the 
outside of the budding. The chamber is easily capable of maintaining a set temperature in the 
operating range of -10 °C to 30 °C with a 1-kW heating load. 

The batteries are divided into two groups of three batteries. Each of the battery groups is 
mounted on a cold plate. The cold plates have imbedded heaters to allow separate control of the 
battery group temperatures. The cold plates, with batteries, are stacked vertically in a support 
frame. Insulation surrounds the battery groups on top, sides, and ends to force most generated heat 
to be extracted via the cold plates. Baffling exists in the chamber to direct the circulating ambient 
environment to the cold plates for proper heat transfer. The battery physical arrangement thus 
provides a thermal path similar to that expected in space operation. 

A physical modification to the battery cases has been made to accommodate the individual 
cell pressure transducers and their attendant cabling and to allow wiring to each cell terminal to 
obtain cell voltages This modification is accomplished by using 1-inch spacers between the battery 
case and lid. The lid is still within the insulation surrounding the groups for thermal integrity. 

ii ^ ure 3 ls a de P ,ctlon of the chamber physical layout. Figure 4 is a photograph of the 
installed batteries. 


TEST CONTROL AND DATA ACQUISITION 


Signals trom the DAS control the orbital day/night time of the test bed. Day/night orbital 
times are synchronized with the DAS 1-min scan rate to preclude data acquisition during the 
attery charge-discharge transitions, and to allow stabilization of operating parameters between 
readings. The DAS also performs limit checking on the data to alert to failure conditions of sup- 
port equipment such as environmental chamber cooling failure, building power failure, SAS equip- 
ment failure, and cell-battery failure. " " 

, . T ?, b 1 le 1 ' ,sts the and distribution of data types read by the DAS, while appendices A 
i cnmi [ channeI assignments. The DAS is a system assembled by DSP Inc. utilizing a 
LSI- 1 1/23 DEC board computer as the processor. The operating system is RT-1 1 with the operating 
programs written in BASIC for ease of modification and interactive operator control. Data scanning 
is accomplished using 16-channel, flying-capacitor, reed-relay multiplexors. Network completion 
circuits are also provided for resistance measurements of thermistor temperature circuits. 

Figure 5 is a block diagram of the DAS system. A typical control circuit for a single 
battery is shown in figure 6. 
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The DAS also incorporates a switch panel to provide operator control of scan data printouts, 
recycling of orbital position to the beginning of day or night (start of new orbit), and forcing dis- 
charge during day or charge during night phase. 

To accommodate the accumulation and retention of large amounts of data (370 items per 
scan), an external “AT” class computer has been attached to a RS232 port. This computer incor- 
porates an optical disk of the “write once-read many” (WORM) technology. Two hundred mega- 
bytes of storage are available per disk. This represents about 3 weeks of data This same data is 
also routed to an expert system test bed for real-time development of artificial intelligence (AI) 
technologies as applied to large space power systems. 

The DAS also has two printer outputs. One printer is used for listing orbital summary data 
(fig. 11) and the second printer lists failure conditions and scan data requests (fig. 12). 

Appendix D is the control and data acquisition program for the LSI- 11/23 with comments 
added for clarity. Also included are the DAS operating instructions. 


SOLAR ARRAY SIMULATORS 


The HST orbital configuration consists of 20 solar panels divided into groups of 3 panels 
for each battery, with the remaining 2 panels connected directly to bus C. For test simulation, two 
power supplies per battery are employed. One power supply (type 1) of the pair simulates a single 
solar panel, the second supply (type 2) simulates the output ot two solar panels. The SAS control 
circuits can thus simulate the power delivered by type 1, 2. or 3 panels, as determined by the 
charge current controllers (CCC). A type 2 supply simulates the two solar power arrays (SPA s) 

connected to bus C. 


LOAD BUSES 


The HST three-flisht load buses are replicated by three programmable load banks. Each 
load bank is independently controlled by the CC to perform in the predicted orbital configuration. 

including the failure SAFEMODE. 


CHARGE CURRENT CONTROLLER 


The charge voltage of each battery is controlled by a CCC. Each CCC controls the number 
and battery cut-off voltages of the SPA's (SAS) charging each battery. The cutott voltages are 
temperature compensated to reduce charging stress at higher temperatures. 
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CONTROL COMPUTER 


The control computer is an inhouse designed and fabricated microprocessor system. The CC 
as an operator interface tor entry ot desired orbital operating parameters. A TI 9900 chip is used 
as the central processing unit (CPU) with series supporting chips and 2k bytes of EPROM memory, 
i !. P rOV,des , for '"dependent SAS control (simulating HST orientation and SPA degradation) 
load bank control (simulating various load conditions), and monitoring of CCC operation battery 

onhTsAS \17ccc°t 7 rr d DAS Opera,ion The CC circui,s also P">vide failure monitoring 
ol the SA.S and CCC. The CC incorporates a 16-channel multiplexor and 12-bit analog/d, total 

(A/D) convener for analog data monitoring. CC output control is accomplished via two 1 6-bit I/O 

chtps with relay drtver mterface. The CC logic and board circuitry am shown in figures 7 through 


The CC operating program is programmed into the EPROM memory. Appendix 
mg of the two programs for CC operation and operator interface. 


E is a list- 


TEST SHUTDOWN AND FAILURE PROTECTION 


The number of individual subsystems and integrated operation of the test bed requires 
several levels of failure protection and test shutdown. Since the test bed is earthbound and 
dependent on utility power for operations, an uninterruptable power source supplies the operatins 
power tor the DAS and CC. Since the test bed is designed for continuous, unmtended. o-ration 
all circuits have FAIL-SAFE provision.,, and ,he DAS and CC am conneced ,o an auloZ dr- 
cuit to notify test personnel of a failure night or day. 

■ition ,h V CSt ar ! ideS (ba,teries) and the test ^ d equipment is an important consider- 

ation. therefore the conditions listed in table 2 are considered faults and initiate the indicated 

actions. Test shutdown for failures requires operator intervention for restart, even if the fault self 
corrected 3 PreCaUt '° n l ° veri,y that the fault cause is foun d and properly cleared or 
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Figure I . HST power system. 
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Figure 2. Test bed block diagram. 


























Figure 4. Installed batteries. 
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Figure 7. CPU/memory board. 
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Figure 9. Analog interface board. 






Figure 10. CCC trip sense and power supply control boards XB4 and XB5 
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Figure 1 1 . Orbital summary data. 
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Figure 12. Failure conditions and scan data requests. 



Table 1 . Data types read by the DAS. 


DAS 

channels 

type of 
sianal 

Quan. 

Use 

ANALOG 

0-255 

0-+/“ 2.4 v 

256 

cell volt, and cell 

256-335 

0— +/— 2.4 V 

80 

press . 

same as above 

336-375 

O-lOOk ohms 

40 

theristor temperature 

376-399 

0-200 v 

24 

battery and load volts. 

400-415 

0-+/” 100 ® v 

16 

battery and SAS curr. 

DIGITAL 

0-63 

TTL level 

64 

cc contol 

0-15 

switches 

16 

alarm and level control 

0-15 

28 v level 

16 

operator control panel 

16-31 

TTL level 

16 

battery status 


Table 2. Fault conditions. 


Fault 


Action 

Environmental chamber temp, too 

high 

Shutdown 

Environmental chamber temp, too 

low 

Shutdown 

SAS current too high 


Alarm 

DAS not scanning 


Shutdown 

Cell voltage too high 


Shutdown 

Cell voltage too low 


Shutdown 

Bus current too high 


Shutdown 

SAS curr. too low at start of charge 

Alarm 

Utility power failure 


Alarm 
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Channel 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
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34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 


Appendix A 
ANALOG SIGNALS 

Use 


Batt 1 / Cell 1 
Batt 1 / Cell 2 
Batt 1 / Cell 3 
Batt 1 / Cell 4 
Batt 1 / Cell 5 
Batt 1 / Cell 6 
Batt 1 / Cell 7 
Batt 1 / Cell 8 
Batt 1 / Cell 9 
Batt 1 / Cell 10 
Batt 1 / Cell 11 
Batt 1 / Cell 12 
Batt 1 / Cell 13 
Batt 1 / Cell 14 
Batt 1 / Cell 15 
Batt 1 / Cell 16 
Batt 1 / Cell 17 
Batt 1 / Cell 18 
Batt 1 / Cell 19 
Batt 1 / Cell 20 
Batt 1 / Cell 21 
Batt 1 / Cell 22 
Batt 1 / Cell 23 
Batt 2 / Cell 1 
Batt 2 / Cell 2 
Batt 2 / Cell 3 
Batt 2 / Cell 4 
Batt 2 / Cell 5 
Batt 2 / Cell 6 
Batt 2 / Cell 7 
Batt 2 / Cell 8 
Batt 2 / Cell 9 
Batt 2 / Cell 10 
Batt 2 / Cell 11 
Batt 2 / Cell 12 
Batt 2 / Cell 13 
Batt 2 / Cell 14 
Batt 2 / Cell 15 
Batt 2 / Cell 16 
Batt 2 / Cell 17 
Batt 2 / Cell 18 
Batt 2 / Cell 19 
Batt 2 / Cell 20 
Batt 2 / Cell 21 
Batt 2 / Cell 22 
Batt 2 / Cell 23 


Voltage (Volts) 
(+ or -) 
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Appendix A cont. 


Channel 


Use 


47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 


Batt 3 / Cell 1 
Batt 3 / Cell 2 
Batt 3 / Cell 3 
Batt 3 / Cell 4 
Batt 3 / cell 5 
Batt 3 / cell 6 
Batt 3 / cell 7 
Batt 3 / cell 8 
Batt 3 / Cell 9 
Batt 3 / Cell 10 
Batt 3 / Cell 11 
Batt 3 / Cell 12 
Batt 3 / Cell 13 
Batt 3 / Cell 14 
Batt 3 / Cell 15 
Batt 3 / Cell 16 
Batt 3 / Cell 17 
Batt 3 / Cell 18 
Batt 3 / Cell 19 
Batt 3 / Cell 20 
Batt 3 / Cell 21 
Batt 3 / Cell 22 
Batt 3 / Cell 23 
Batt 4 / Cell l 
Batt 4 / Cell 2 
Batt 4 / Cell 3 
Batt 4 / Cell 4 
Batt 4 / Cell 5 
Batt 4 / Cell 6 
Batt 4 / Cell 7 
Batt 4 / Cell 8 
Batt 4 / Cell 9 
Batt 4 / Cell 10 
Batt 4 / Cell 11 
Batt 4 / Cell 12 
Batt 4 / Cell 13 
Batt 4 / Cell 14 
Batt 4 / Cell 15 
Batt 4 / Cell 16 
Batt 4 / Cell 17 
Batt 4 / Cell 18 
Batt 4 / cell 19 
Batt 4 / Cell 20 
Batt 4 / Cell 21 
Batt 4 / Cell 22 
Batt 4 / Cell 23 


Voltage (Volts) 
(+ or -) 

2.5 


20 


Channel 


Appendix A cont 


Voltage (Volts) 
(+ or -) 


use 


93 

Batt 

5 

/ 

Cell 

1 

94 

Batt 

5 

/ 

Cell 

2 

95 

Batt 

5 

/ 

Cell 

3 

96 

Batt 

5 

/ 

Cell 

4 

97 

Batt 

5 

/ 

Cell 

5 

98 

Batt 

5 

/ 

Cell 

6 

99 

Batt 

5 

/ 

Cell 

7 

100 

Batt 

5 

/ 

Cell 

8 

101 

Batt 

5 

/ 

Cell 

9 

102 

Batt 

5 

/ 

Cell 

10 

103 

Batt 

5 

/ 

Cell 

11 

104 

Batt 

5 

/ 

Cell 

12 

105 

Batt 

5 

/ 

Cell 

13 

106 

Batt 

5 

/ 

Cell 

14 

107 

Batt 

5 

/ 

Cell 

15 

108 

Batt 

5 

/ 

Cell 

16 

109 

Batt 

5 

/ 

Cell 

17 

110 

Batt 

5 

/ 

Cell 

18 

111 

Batt 

5 

/ 

Cell 

19 

112 

Batt 

5 

/ 

Cell 

20 

113 

Batt 

5 

/ 

Cell 

21 

114 

Batt 

5 

/ 

Cell 

22 

115 

Batt 

5 

/ 

Cell 

23 

116 

Batt 

6 

/ 

Cell 

1 

117 

Batt 

6 

/ 

Cell 

2 

118 

Batt 

6 

/ 

Cell 

3 

119 

Batt 

6 

/ 

Cell 

4 

120 

Batt 

6 

/ 

Cell 

5 

121 

Batt 

6 

/ 

Cell 

6 

122 

Batt 

6 

/ 

Cell 

7 

123 

Batt 

6 

/ 

Cell 

8 

124 

Batt 

6 

/ 

Cell 

9 

125 

Batt 

6 

/ 

Cell 

10 

126 

Batt 

6 

/ 

Cell 

11 

127 

Batt 

6 

/ 

Cell 

12 

128 

Batt 

6 

/ 

Cell 

13 

129 

Batt 

6 

/ 

Cell 

14 

130 

Batt 

6 

/ 

Cell 

15 

131 

Batt 

6 

/ 

Cell 

16 

132 

Batt 

6 

/ 

Cell 

17 

133 

Batt 

6 

/ 

Cell 

18 

134 

Batt 

6 

/ 

Cell 

19 

135 

Batt 

6 

/ 

Cell 

20 

136 

Batt 

6 

/ 

Cell 

21 

137 

Batt 

6 

/ 

Cell 

22 


2.5 


2.5 


Appendix A eont. 


Channel 


Use Voltage 

<+ or 


138 

Batt 

6 

/ 

Cell 

23 


139 

Not 

Used 




140 

Not 

Used 




141 

Batt 

1 

/ 

Cell 

1 

Press 

142 

Batt 

1 

/ 

Cell 

2 

Press 

143 

Batt 

1 

/ 

Cell 

3 

Press 

144 

Batt 

1 

/ 

Cell 

4 

Press 

145 

Batt 

1 

/ 

Cell 

5 

Press 

146 

Batt 

1 

/ 

Cell 

6 

Press 

147 

Batt 

1 

/ 

Cell 

7 

Press 

148 

Batt 

1 

/ 

Cell 

8 

Press 

149 

Batt 

1 

/ 

Cell 

9 

Press 

150 

Batt 

1 

/ 

Cell 

10 

Press 

151 

Batt 

1 

/ 

Cell 

11 

Press 

152 

Batt 

1 

/ 

Cell 

12 

Press 

153 

Batt 

1 

/ 

Cell 

13 

Press 

154 

Batt 

1 

/ 

Cell 

14 

Press 

155 

Batt 

1 

/ 

Cell 

15 

Press 

156 

Batt 

1 

/ 

Cell 

16 

Press 

157 

Batt 

1 

/ 

Cell 

17 

Press 

158 

Batt 

1 

/ 

Cell 

18 

Press 

159 

Batt 

1 

/ 

Cell 

19 

Press 

160 

Batt 

1 

/ 

Cell 

20 

Press 

161 

Batt 

1 

/ 

Cell 

21 

Press 

162 

Batt 

1 

/ 

Cell 

22 

Press 

163 

Batt 

1 

/ 

Cell 

23 

Press 

164 

Batt 

2 

/ 

Cell 

1 

Press 

165 

Batt 

2 

/ 

Cell 

2 

Press 

166 

Batt 

2 

/ 

Cell 

3 

Press 

167 

Batt 

2 

/ 

Cell 

4 

Press 

168 

Batt 

2 

/ 

Cell 

5 

Press 

169 

Batt 

2 

/ 

Cell 

6 

Press 

170 

Batt 

2 

/ 

Cell 

7 

Press 

171 

Batt 

2 

/ 

Cell 

8 

Press 

172 

Batt 

2 

/ 

Cell 

9 

Press 

173 

Batt 

2 

/ 

Cell 

10 

Press 

174 

Batt 

2 

/ 

Cell 

11 

Press 

175 

Batt 

2 

/ 

Cell 

12 

Press 

176 

Batt 

2 

/ 

Cell 

13 

Press 

177 

Batt 

2 

/ 

Cell 

14 

Press 

178 

Batt 

2 

/ 

Cell 

15 

Press 

179 

Batt 

2 

/ 

Cell 

16 

Press 

180 

Batt 

2 

/ 

Cell 

17 

Press 

181 

Batt 

2 

/ 

Cell 

18 

Press 

182 

Batt 

2 

/ 

Cell 

19 

Press 

183 

Batt 

2 

/ 

Cell 

20 

Press 


2 . 


2.5 


(Volts) 

-) 


22 



Appendix A cont 


Channel 


Use 


Voltage (Volts) 
(+ or -) 


184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 
229 


Batt 2 / Cell 21 Press 
Batt 2 / Cell 22 Press 
Batt 2 / Cell 23 Press 
Batt 3 / Cell 1 Press 
Batt 3 / Cell 2 Press 
Batt 3 / Cell 3 Press 
Batt 3 / Cell 4 Press 
Batt 3 / Cell 5 Press 
Batt 3 / Cell 6 Press 
Batt 3 / Cell 7 Press 
Batt 3 / Cell 8 Press 
Batt 3 / Cell 9 Press 
Batt 3 / Cell 10 Press 
Batt 3 / Cell 11 Press 
Batt 3 / Cell 12 Press 
Batt 3 / Cell 13 Press 
Batt 3 / Cell 14 Press 
Batt 3 / Cell 15 Press 
Batt 3 / Cell 16 Press 
Batt 3 / Cell 17 Press 
Batt 3 / Cell 18 Press 
Batt 3 / Cell 19 Press 
Batt 3 / Cell 20 Press 
Batt 3 / Cell 21 Press 
Batt 3 / Cell 22 Press 
Batt 3 / Cell 23 Press 
Batt 4 / Cell 1 Press 
Batt 4 / Cell 2 Press 
Batt 4 / Cell 3 Press 
Batt 4 / Cell 4 Press 
Batt 4 / Cell 5 Press 
Batt 4 / Cell 6 Press 
Batt 4 / Cell 7 Press 
Batt 4 / Cell 8 Press 
Batt 4 / Cell 9 Press 
Batt 4 / Cell 10 Press 
Batt 4 / Cell 11 Press 
Batt 4 / Cell 12 Press 
Batt 4 / Cell 13 Press 
Batt 4 / Cell 14 Press 
Batt 4 / Cell 15 Press 
Batt 4 / Cell 16 Press 
Batt 4 / Cell 17 Press 
Batt 4 / Cell 18 Press 
Batt 4 / Cell 19 Press 
Batt 4 / Cell 20 Press 


23 



Channel 


230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 


Appendix A cont. 

0s ® Voltage (Volts) 

(+ or -) 

Batt 4 / Cell 21 Press 2.5 

Batt 4 / Cell 22 Press 
Batt 4 / Cell 23 Press 
Batt 5 / Cell l Press 
Batt 5 / Cell 2 Press 
Batt 5 / Cell 3 Press 
Batt 5 / Cell 4 Press 
Batt 5 / Cell 5 Press 
Batt 5 / Cell 6 Press 
Batt 5 / Cell 7 Press 
Batt 5 / Cell 8 Press 
Batt 5 / cell 9 Press 
Batt 5 / Cell 10 Press 
Batt 5 / Cell li Press 
Batt 5 / Cell 12 Press 
Batt 5 / Cell 13 Press 
Batt 5 / Cell 14 Press 
Batt 5 / Cell 15 Press 
Batt 5 / Cell 16 Press 
Batt 5 / Cell 17 Press 
Batt 5 / Cell 18 Press 
Batt 5 / Cell 19 Press 
Batt 5 / cell 20 Press 
Batt 5 / Cell 21 Press 
Batt 5 / Cell 22 Press 
Batt 5 / Cell 23 Press 
Batt 6 / Cell l Press 
Batt 6 / Cell 2 Press 
Batt 6 / Cell 3 Press 
Batt 6 / Cell 4 Press 
Batt 6 / Cell 5 Press 
Batt 6 / Cell 6 Press 
Batt 6 / Cell 7 Press 
Batt 6 / Cell 8 Press 
Batt 6 / Cell 9 Press 
Batt 6 / Cell io Press 
Batt 6 / Cell 11 Press 
Batt 6 / Cell 12 Press 
Batt 6 / Cell 13 Press 
Batt 6 / Cell 14 Press 
Batt 6 / Cell 15 Press 
Batt 6 / Cell 16 Press 
Batt 6 / Cell 17 Press 
Batt 6 / Cell 18 Press 
Batt 6 / Cell 19 Press 
Batt 6 / Cell 20 Press 


2.5 



Appendix A cont 


Channel 


Use Voltage (Volts) 

(+ or -) 


276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 


Batt 6 / Cell 21 Press 
Batt 6 / Cell 22 Press 
Batt 6 / Cell 23 Press 
Not used 


2.5 


Not Used 


2.5 


Channel 


Appendix a oont 


Use 


317 

Not 

Used 


318 

Not 

Used 


319 

Not 

Used 


320 

BUS 

1 CURR 


321 

BUS 

2 CURR 


322 

BUS 

3 CURR 


323 

SAS 

1 CURR 


324 

SAS 

2 CURR 


325 

SAS 

3 CURR 


326 

S AS 

4 CURR 


327 

SAS 

5 CURR 


328 

SAS 

6 CURR 


329 

SAS 

7 CURR 


330 

SAS 

8 CURR 


331 

SAS 

9 CURR 


332 

SAS 

10 CURR 


333 

SAS 

11 CURR 


334 

S AS 

12 CURR 


335 

SAS 

13 CURR 


336 

Batt 

1 / Temp 

1 

337 

Batt 

1 / Temp 

2 

338 

Batt 

1 / Temp 

3 

339 

Batt 

1 / Temp 

4 

340 

Batt 

1 / Temp 

5 

341 

Batt 

1 / Temp 

6 

342 

Batt 

2 / Temp 

1 

343 

Batt 

2 / Temp 

2 

344 

Batt 

2 / Temp 

3 

345 

Batt 

2 / Temp 

4 

346 

Batt 

2 / Temp 

5 

347 

Batt 

2 / Temp 

6 

348 

Batt 

3 / Temp 

1 

349 

Batt 

3 / Temp 2 

350 

Batt 

3 / Temp 

3 

351 

Batt 

3 / Temp 

4 

352 

Batt 

3 / Temp 

5 

353 

Batt 

3 / Temp 

6 

354 

Batt 

4 / Temp 

1 

355 

Batt 

4 / Temp 

2 

356 

Batt 

4 / Temp 

3 

357 

Batt 

4 / Temp 

4 

358 

Batt 

4 / Temp 

5 

359 

Batt 

4 / Temp 

6 

360 

Batt 

5 / Temp 

1 

361 

Batt 

5 / Temp 

2 

362 

Batt 

5 / Temp 

3 

363 

Batt 

5 / Temp 

4 


Voltage (Volts) 
(♦ or -) 


2,5 


i 

2.5 

THERM 


THERM 



Appendix A eont 


Channel 


Uxe Voltage (Volts) 


364 

Batt 5 / 

Temp 5 

365 

Batt 5 / 

Temp 6 

366 

Batt 6 / 

Temp 1 

367 

Batt 6 / 

Temp 2 

368 

Batt 6 / 

Temp 3 

369 

Batt 6 / 

Temp 4 

370 

Batt 6 / 

Temp 5 

371 

Batt 6 / 

Temp 6 

372 

Not Used 


373 

Not Used 


374 

Not Used 


375 

Not Used 


376 

Batt 1 / 

VOLT 

377 

Batt 2 / 

VOLT 

378 

Batt 3 / 

VOLT 

379 

Batt 4 / 

VOLT 

380 

Batt 5 / 

VOLT 

381 

Batt 6 / 

VOLT 

382 

BUS 1 / 

VOLT 

383 

BUS 2 / 

VOLT 

384 

BUS 3 / 

VOLT 

385 

Not Used 


386 

Not Used 


387 

Not Used 


388 

Not Used 


389 

Not Used 


390 

Not Used 


391 

Not Used 


392 

Not Used 


393 

Not Used 


394 

Not Used 


395 

Not Used 


396 

Not Used 


397 

Not Used 


398 

Not Used 


399 

Not Used 


400 

Batt 1 / 

CURR 

401 

Batt 2 / 

CURE 

402 

Batt 3 / 

CURR 

403 

Batt 4 / 

CURR 

404 

Batt 5 / 

CURR 

405 

Batt 6 / 

CURR 

406 

BPRC 1 / 

CURR 

407 

BPRC 2 / 

CURR 

408 

BPRC 3 / 

CURR 

409 

BPRC 4 / 

CURR 

410 

BPRC 5 / 

CURR 

411 

BPRC 6 / 

CURR 


THE 


RM 


th: 

200 


:rm 

v 


200 v 

±100 MV 


±100 MV 


27 



Channel 


Appendix B 
Digital inputs 


Function 


Type 


1 

Isolated 

POWER FAILURE 


2 

Isolated 

PRT BATT 1 



3 

Isolated 

PRT BATT 2 



4 

Isolated 

PRT BATT 3 



5 

Isolated 

PRT BATT 4 



6 

Isolated 

PRT BATT 5 



1 

Isolated 

PRT BATT 6 



8 

Isolated 

BUS PNT 



9 

Isolated 

TAPE OFF LINE 


10 

Isolated 




11 

Isolated 




12 

Isolated 

FORCE DAY 



13 

Isolated 

BEGIN NIGHT 



14 

Isolated 

BEGIN DAY 



15 

Isolated 

FORCE NIGHT 



16 

Isolated 

Not Used 



17 

Nonisolated 




18 

Nonisolated 

RECONDITION 

BATT 

1 

19 

Nonisolated 

RECONDITION 

BATT 

2 

20 

Nonisolated 

RECONDITION 

BATT 

3 

21 

Nonisolated 

RECONDITION 

BATT 

4 

22 

Nonisolated 

RECONDITION 

BATT 

5 

23 

Nonisolated 

RECONDITION 

BATT 

6 

24 

Nonisolated 




25 

Nonisolated 




26 

Nonisolated 




27 

Nonisolated 

1PPM 



28 

Nonisolated 

TIME BCD 1 



29 

Nonisolated 

TIME BCD 2 



30 

Nonisolated 

TIME BCD 4 



31 

Nonisolated 

TIME BCD 8 



32 

Nonisolated 

Not Used 




29 

ffr M INTENTION ALU BLAMt PRECEDING PAGE BLANK NOT FILMED 



Channel 


Appendix C 
Digital outputs 

Type 


Function 


1-0 

1-1 

1-2 

1-3 

1-4 

1-5 

1-6 

1-7 

1-8 

1-9 

1-10 

1-11 

1-12 

1-13 

1-14 

1 - 15 

2 - 0 
2-1 
2-2 
2-3 
2-4 
2-5 
2-6 
2-7 
2-8 
2-9 
2-10 
2-11 
2-12 
2-13 
2-14 
2-15 
2-16 
2-17 
2-18 
2-19 
2-20 
2-21 
2-22 
2-23 
2-24 
2-25 
2-26 
2-27 
2-28 
2-29 
2-30 
2-31 


Isolated 


Not Used 
DAY 
NIGHT 
Not Used 


Isolated 

Nonisolated 


ALARM ON 
Not Used 


SCANNING 
SCANNING 
Not Used 


Nonisolated Not Used 


INTENTION AILX B UM 


Channel 


Function 


2-32 

2-33 

2-34 

2-35 

2-36 

2-37 

2-38 

2-39 

2-40 

2-41 

2-42 

2-43 

2-44 

2-45 

2-46 

2-47 

2-48 

2-49 

2-50 

2-51 

2-52 

2-53 

2-54 

2-55 

2-56 

2-57 

2-58 

2-59 

2-60 

2-61 

2-62 

2-63 


Appendix c cont. 
Digital Outputs 

Type 


Nonisolated 


Not Used 


1PPM RS 
TIME OFF 
TIME ADV 
TIME HOLD 


Nonisolated 


APPENDIX D 


HUBBLE SPACE TELESCOPE 
NICD 6 BATTERY SYSTEM 
TEST OPERATIONS PROGRAM WITH COMMENTS 
REVISED FEB 27, 1990 


DATA ACQUISITION SYSTEM STARTUP PROCEDURE 


1 . 

2 . 

3. 

4. 

5. 


DADS RACK MAIN POWER SWITCH "ON" (BOTTOM PANEL) 

CLOCK (TOP PANEL) & PRESS "STOP" SWITCH 
SET EXTERNAL CLOCK TO CURRENT DAY & TIME 
START CLOCK 
TURN ON VIDEO DISPLAY 
MESSAGE SHOULD READ: (AFTER BEEP) 

V14F1 TEST OK 

TURN ON PRINTER A AND VERIFY IS "ON LINE" 

TURN ON PRINTER B AND VERIFY IT IS "ON LINE" 

CONNECT MODEM 

TURN ON LOWER "CAMAC" CRATE 

TURN ON UPPER "CAMAC" CRATE 

TURN ON BACKPLANE POWER (SHORT RACK) 

ENABLE SWITCH "UP" , LTC SWITCH "UP" 

TURN ON MAG TAPE POWER SWITCH 
PUT "TAPE OFF LINE" SWITCH UP (AUX PANEL) 

INSERT DISK "A" INTO DRIVE "0" (LEFT) * 

INSERT DISK "B" INTO DRIVE "1" (RIGHT) 

16. VERIFY VIDEO DISPLAY IS OK 
MESSAGE SHOULD READ: 

V14F1 TEST OK 

DEPRESS "BOOT" SWITCH ON UPPER "CAMAC" CRATE" 

THE FOLLOWING WILL BE DISPLAYED 
(ENTER BOLDFACED DATA, DATA SHOWN ARE EXAMPLES ONLY) 
(BOLD LETTERS ARE OPERATOR RESPONSES) ' 

(<> INDICATES "RETURN" KEY) 

O D 56 * 5015 
o SET TT SCOPE 
O D56 = 0 
O INITIALIZE VMO: 

VMO INITIALIZE; ARE YOU SURE? Y <> 

O COPY DYO: RT11SJ. SYS VMO: 

FILES COPIED 

DYO : RT11S J . SYS TO VM0:RT11SJ.SYS 
O COPY DYO: SWAP. SYS VMO: 

FILES COPIED 

DYO: SWAP. SYS TO VMO: SWAP. SYS 
O COPY DYO:TT. SYS VMO: 

FILES COPIED 
DYO : TT . SYS TO VMO:TT.SYS 
O COPY DYO: DY. SYS VMO: 


6 . 

7. 

8 . 

9. 

10 . 
11 . 

12 . 

13. 

14. 

15. 


17. 

18. 
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FILES COPIED 
DYO: DY.SYS TO VMO:DY.SYS 
O COPY DYOiVM.SYS VMO: 

FILES COPIED 
DYO:VM.SYS TO VMOtVM.SYS 
O COPY DYO: MS. SYS VMO: 

FILES COPIED 
DYO: MS. SYS TO VMO: MS. SYS 
o COPY DYO: LS . SYS VMO: 

FILES COPIED 
DYO : LS . SYS TO VMO: LS. SYS 
O COPY DYO:NL. SYS VMO: 

FILES COPIED 
DYO: NL. SYS TO VMO:NL.SYS 
O COPY DYO : LT . SYS VMO: 

FILES COPIED 
DYO : LT. SYS TO VMO: LT. SYS 
o COPY DYO: TV. SYS VMO: 

FILES COPIED 
DYO : TV . SYS TO VMO : TV . SYS 
O COPY DYO: DIR. SYS VMO: 

FILES COPIED 

DYO: DIR. SYS TO VMO: DIR. SYS 
o COPY DYO: PIP. SYS VMO: 

FILES COPIED 

DYO: PIP. SYS TO VMO: PIP. SYS 
o COPY DYO:DUP.SAV VMO: 

FILES COPIED 

DYO : DUP . S AV TO VMO:DUP.SAV 
o COPY DYO : RESORC . SAV VMO: 

FILES COPIED 

DYO : RESORC . SAV TO VMO : RESORC . SAV 
o COPY DY1: INIT. BAS VMO: 

FILES COPIED 

DYl: INIT. BAS TO VMO: INIT. BAS 
o COPY DYl: MAINOP . BAS VMO: 

FILES COPIED 

DYl: MAINOP. BAS TO VMO : MAINOP . BAS 
o COPY DYO: BAS I CO. SAV VMO: 
pttfci rnPTFn 

DYO : BASICO . SAV TO VMO: BAS I CO. SAV 
O COPY DYO: STARTX.COM VMO : STARTS . COM 
o COPY BOOT VM0:RT11SJ .SYS VMO: 

O BOOT VMO: 

O RT-11SJ (S) V05-01 
O D 56 = 5015 


o SET LS FORM, WIDTH =132 
o ASS LS LP 
o SET TT SCOPE 
o SET EDIT KED 
o D 56 = 0 
O DATE 2 -APR-8 6 <> 
o TIME 8:17:54 <> 


A. 

O RUN BASICO <> 

BASIC-ll/RT-11 V02-03 

OPTIONAL FUNCTIONS (ALL, NONE, OR INDIVIDUAL)? A <> 
READY 

RUN INIT <> 

CRATE 4 STATUS 
E205 INSTALLED IN STATION 1 
E220 INSTALLED IN STATION 2 
E220 INSTALLED IN STATION 3 
E220 INSTALLED IN STATION 4 
E220 INSTALLED IN STATION 5 
E220 INSTALLED IN STATION 6 
E220 INSTALLED IN STATION 7 
E220 INSTALLED IN STATION 8 
E220 INSTALLED IN STATION 9 
E220 INSTALLED IN STATION 10 
E220 INSTALLED IN STATION 11 
E220 INSTALLED IN STATION 12 
E220 INSTALLED IN STATION 13 
E220 INSTALLED IN STATION 14 
E220 INSTALLED IN STATION 15 
E220 INSTALLED IN STATION 16 
E220 INSTALLED IN STATION 17 
ENTER 1 TO CONTINUE 
? 1 <> 

CRATE 5 STATUS 

E120 INSTALLED IN STATION 2 

E140 INSTALLED IN STATION 3 


E140 INSTALLED IN STATION 4 
E140 INSTALLED IN STATION 5 
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E205 INSTALLED IN STATION 6 
E240 INSTALLED IN STATION 7 
E205 INSTALLED IN STATION 8 
E220 INSTALLED IN STATION 9 
E220 INSTALLED IN STATION 10 
E220 INSTALLED IN STATION 11 
E220 INSTALLED IN STATION 12 
E220 INSTALLED IN STATION 13 
E220 INSTALLED IN STATION 14 
E220 INSTALLED IN STATION 15 
E220 INSTALLED IN STATION 16 
E220 INSTALLED IN STATION 17 
ENTER 1 TO CONTINUE 
? 1 <> 

ENTER ORBIT COUNT 
? 1 <> 

ENTER CURRENT YEAR 

? 1986 <> 

ENTER • DISCHARGE MIN . 


? 35 <> 

ENTER CHARGE MIN. 


? 60 <> 

ENTER ORBITS TO SKIP 


? 0 <> 

(DELAY TO NEXT LINE WILL BE APPROX 10 SEC.) 
STOP AT LINE 590 

(ANY SET UP CHANGES MAY BE MADE AT THIS POINT) 
(DISCH MIN = C3 = ) 

(CHARGE MIN = Cl = ) 

(SHUTDOWN FLAG = F9 = 0) 

(BATT'S 1,2,3 HI LIMIT = Ll= ) 

(BATT'S 4,5,6 HI LIMIT = L2= ) 

(ALL BATTS LO LIMIT = L8= ) 

(ORBIT NO. = 01 = ) 

(ORBITS TO SKIP = SI = ) 


GOTO 600 <> 

(PROGRAM & SCANNING START WITH NIGHT [DISCHARGE] AND SCAN OF 

(THE FOLLOWING WILL BE DISPLAYED AFTER COMPLETION OF EACH 
SCAN) 

"DISCHARGE TIME 1 C3=35 ORBIT 1" OR "CHARGE TIME 1 Cl=60 
ORBIT 1" 

AFTER CHECKING FOR TIME DISPLAY ABOVE, MAGNETIC TAPE MAY BE 
PUT ON LINE BY PUTTING "TAPE OFF LINE" SWITCH TO THE DOWN 
POSITION. 
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VARIABLE DESCRIPTIONS 


A 

Al(6) 
A2(6) 
A3 (6) 
A6 (6) 
A7(6) 
A8(3) 
A9(3) 


=Average temperature in hi/lo subroutine. 
=Amp-min in summation. 

=Amp-min out summation. 

=BPRC ahr summation. 

=Orbit high pressure. 

=Orbit high pressure cell no. 

=Bus current. 

=Bus voltage. 


B1 (6) 
B2 (6) 
B3 (6) 
B4 (6) 
B5 (6) 
B6 (6) 
B7 (7 ) 
B8 (6) 
B9 (6) 


=Discharge hi cell voltage. 

=Discharge hi cell no. 

=Discharge lo cell voltage. 

=Discharge lo cell no. 

=Discharge average cell voltage. 
=Discharge battery voltage at lo cell 
=Discharge hi temperature. 

=Discharge lo temperature. 

=Discharge average temperature. 


Ci =Charge time of orbit. 

C2 =Charge elapsed min. counter. 

C 3 =Discharge time of orbit. 

04 =<jischsnrgG elapsed min. counter*. 

C 5 ( 6 ) =Reconditioning counter. 

C8 =Print value of C2 . 

C 9 =Print value of C4. 

C$ =" : " 


D1 (6,23) =Cell voltage. 

D2 (6) =Battery voltage. 

D3 (6) =Battery current. 

D5(6) =Battery temperature. 

D6 ( 13 ) =SAS/PS current. 

D7(6) =Last scan current. 

D8 (6,23) =Cell pressure. 

D9 (6) =BPRC current. 


El (6) 
E2(6) 
E3 (6) 
E4 (6) 
E5 (6) 
E6 (6) 
E7 (6) 
E8 (6) 
E9 (6) 


=Charge hi cell voltage. 

=Charge hi cell no. 

=Charge lo cell voltage. 

=Charge lo cell no. 

=Charge average cell voltage. 
=Charge battery volts at hi cell. 
=Charge hi temperature. 

=Charge lo temperature. 

=Charge average temperature. 

=Dig. input, power fail. 


FI (0) 


Fl(l) =Dig. input, battery l print request. 

FI (2) =Dig. input, battery 2 print request. 

FI (3) =Dig. input, battery 3 print request. 

FI (4) =Dig. input, battery 4 print request. 

FI (5) =Dig. input, battery 5 print request. 

FI (6) =Dig. input, battery 6 print request. 

FI (7) =Dig. input, bus data print request. 

FI (8) =Dig. input, tape off line. 

FI (9) =Dig. input, skip scan on mag. tape. 
FI (10) = 

FI (11) =Dig. input, force day. 

FI (12) =Dig . input, begin night. 

FI (13) =Dig. input, begin day. 

FI (14) =Dig, input, force night. 

FI (15) =bad 
F2 (0) 

F2 (1) =Dig. input, reconditioning battery l. 

F2 (2) -Dig. input, reconditioning battery 2. 

F2 (3) =Dig. input, reconditioning battery 3. 

F2(4) =Dig. input, reconditioning battery 4. 

F2 (5) =Dig. input, reconditioning battery 5. 

F2 (6) =Dig. input, reconditioning battery 6. 

F2(7) =Dig. input, trickle charge. 

F2 (8) = y 

F2 (9) 

F2(10) =Dig. input, lppm log pulse. 

F2 ( 11) =Dig. input, time BCD 1. 

F2 (12) =Dig. input, time BCD 2. 

F2 (13) =Dig. input, time BCD 4. 

F2 (14) =Dig. input, time BCD 8. 

F2 ( 15) =bad 
F3 =Roll flag. 

F7 =S0C reset flag. 

F8 =Descrete trickle flag. 

F9 =Shutdown flag. 


G1 

G2 

G3 

G4 

G5 

G6 

G7 


temporary battery WHO for print. 
=Temporary battery EFF for print. 
=Temporary battery RR for print, 
temporary battery DCH or Dec for print. 
=Temoprary battery DOD for print, 
temporary battery AHO for print, 
temporary battery BPRC_WH for print. 


-Hi temperature in hi\lo temperature routine. 


I temporary counter, usually battery no. 

II =Temporary counter. 


J 

J1 


=Temporary counter, usually cell no. 
=Temporary counter. 


K1 =AHO constant (1/60) . 
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L =Lo temperature- in hi\lo temperature routine. 

LI =Battery 1,2,3 hi cell limit. 

L2 =Battery 4,5,6 hi cell limit. 

L8 =Battery lo limit. , 

L9 =Current cell limit in use. 

M% =Multiplexor and ADC setup values. 

Ml =Mag tape off line flag. 

N =Temporary no. storage. 

Nl( 9 ) =Temporary no. storage in time calc.. 

01 =0rbit no. 

PI =Battery "printed” flag. 

P2 = Phase flag, 0= disc . , l=chrg. 

P3 =Forced night flag. 

P4 =Forced day flag. 

P5 =Printout phase flag 

P8 =Flag to check P.S. during 1st 5 min of day. 

P9 =Flag to check load during night. 

r =Temporary resistor value. 

R2 =Constant for DOD calc. (1.01) 

R9 (5,9) =RR from 10 orbits. 

51 =0rbits to skip value. 

52 =Skip counter. 

53 =Skip scan counter. 

S4 (6) =SOC max value. 

S5(6) =SOC accumulative. 

S6 =SOC print value. 

S7 (6) =SOD print value. 

Tl(4) =Storage for scan time. 

T2(4) =Converted time characters. 

T3 (6,4) =Sunset time. 

T 9 =No. of scans on tape counter. 

Ui =Print request counter. 

U2 =Retry counter. 

V =Temporary value in temperature calc. 

VI =Power fail flag. 

V2 =First scan flag. 

V3 (6) =Reconditioning flag. 

V4(6) =Capacity test complete flag. 

V5 ( 13 ) =SAS/PS failure flag. 

V6(6) =Battery current failure flag. 

V7 =Begin night flag. 

V8 =Begin day flag. 

Wl(6) =Battery watt-min in summation. 

W2(6) =Battery watt-min out summation. 
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Zl% -ADC and switch re?, output values. 

Z2% -Temporary output value. 
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WHERE TO CHANGE NON-VARIABLE LIMITS 


LINE NO. 

565 

2700 

3020 

4073 


4151 

4241 

4311 

4390-4420 

4490 

4500 

7080 

7090 

7620 

7830 

8580 

8590 


DESCRIPTION 
SOC BASE VALUE 
BATT RECOND. 1ST LIMIT 
BATT. I UPPER LIMIT AT NIGHT 
EXTRANEOUS CELL VOLTAGE 
DEVIATION BETWEEN SCANS 
(EXCEPT FIRST OF PHASE) 
EXTRANEOUS CELL PRESS. 
DEVIATION 

EXTRANEOUS BATT. V DEV. 
CORRECTION FACTORS FOR 
CURRENTS 

BATT TEMP. O.C. VALUE 
BATT. TEMP. SHRT. CIR. 

BATT. DISC. CURR. LIMIT 
BATT. CHRG. CURR. LIMIT 
SAS P.S. DISC. LIMIT 
SAS P.S. CHRG 5 MIN LIMIT 
BATT. AVE. HI TEMP. LIMIT 
BATT. AVE. LO TEMP. LIMIT 


CURRENT VALUE 
55 

26.45 (VOLTS) 
5 (AMPS) 
.01 (VOLTS) 


10 (PSI) 

. 1 (VOLTS) 


2.2303 (VOLTS) 
-1.2575 (VOLTS) 


-30 

(AMPS) 


25 

(AMPS) 


5 

(AMPS) 


5 

(AMPS) 


30 

(DEG. 

C) 

-10 

(DEG. 

C) 


THIS SECTION IS THE FIRST PROGRAM GROUP AND WILL 
CHAIN TO THE MAIN OPERATING PROGRAM WHEN COMPLETE 

1 REM "INIT" Routine to initialize crates and modules 

♦Define the variables common to both program sections 
50 COMMON 01,C3,C1,T1(4) ,S1 

♦The next section initializes crate #4 and checks for 
♦the module codes. 

100 CALL CRATE (4) \ CALL INIT \ CALL INH(O) 

♦Print status header 
110 PRINT "CRATE 4 STATUS" 

♦Set up module loop 
120 FOR J=1 TO 17 

♦Get module ID numbers 
130 CALL C(J,0,1,I) 

♦Print module ID no. 

140 PRINT "E" ; I ; " INSTALLED IN POSITION ";J 
Get another module ID 
150 NEXT J 

♦Print operator instruction 
160 PRINT "ENTER 1 TO CONTINUE" 

♦Get input 
170 INPUT J1 

♦Verify input is a 1 
180 IF Jlol GOTO 160 

♦The next part initializes crate #5 and checks 
♦the ID of all modules 
190 CALL CRATE (5) \ CALL INIT \ CALL INH(0) 

♦Print status header 
200 PRINT "CRATE 5 STATUS" 

♦Set up module loop 
210 FOR J=2 TO 17 

♦Get module ID's 
220 CALL C(J,0,1,I) 

♦Print status 

230 PRINT "E " ; I ; " INSTALLED IN POSITION ";J 
♦Next module 
240 NEXT J 

♦Print instruction 
250 PRINT "ENTER 1 TO CONTINUE" 

♦Get input 
260 INPUT J1 

♦Verify input is a 1 
270 IF Jlol GOTO 250 

♦This section gets the starting orbit no. and year 
♦Print instruction 
280 PRINT "ENTER ORBIT COUNT" 

♦Get starting orbit count 
290 INPUT 01 

♦Print instruction 
300 PRINT "ENTER CURRENT YEAR" 

♦Get current year 
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310 

320 

330 

340 

350 

360 

370 

400 

410 

420 

430 


INPUT T1(0) • **T1(0) IS YEAR IN TIME ARRAY 

♦print instruction 

PRINT "ENTER DISCHARGE MIN.” 


♦Get discharge time 

input C3 **C3 is Length of night 


♦print instruction 
PRINT "ENTER CHARGE MIN.” 


♦Get charge time 

INPUT Cl **C1 IS LENGTH OF DAY 

♦Print instruction 

PRINT "ENTER ORBITS TO SKIP" 

♦Get skip count 


♦clear clock buffers and send clock hold pulse 
CALL C(4, 1,16, (2*15) ) \ CALI* C (4 , 1 , 16 , 0) 

♦Set up time input loop 

FOR 1=1 TO 9 

♦Set up to get digit 

CALL C(4 , 1, 16, (2*14) ) \ CALL C(4, 1,16,0) 

♦Get a time digit 
CALL C (2 , 1 , 0 , Zl%) 

♦Get another 


440 NEXT I 

♦Reset counter and reset hold 
450 CALL C(4, 1,16, (2*15) ) \ CALL C(4,l,16,(2 13)) \ CALL 
C(4, 1,16,0) 

♦Go to next program segment 
500 CHAIN "MAINOP" 

510 END 


THIS STARTS THE MAIN OPERATING SECTION OF THE PROGRAM 


2 

50 

500 

510 

520 

530 

540 

550 

555 

560 

565 

570 

575 

I 

580 

V1=0 


590 

600 

610 

620 

630 

640 

1000 

1010 

1020 

1030 


1040 

1050 

1060 

1070 

1080 

1090 


REM "MAINOP" main operating program 
♦Set up common variables 
COMMON 01,C1,C3,T1(4) ,S1 
♦Dimension arrays 

DIM A1 (6) , A2 ( 6 ) ,B1(6) ,B2(6) ,B3(6) ,B4(6) ,B5(6) 

DIM B6 (6) ,B7(6) ,B8(6) ,B9(6) ,C5(6) ,D2(6) ,D3(6) 

DIM D6 (13) , D7 (6) ,E1(6) ,E2(6) ,E3(6) ,E4(6) ,E5(6) 

DIM E6 (6) , E7 (6) , E8 (6) , E9 (6) , FI (16) , F2 ( 16) 

DIM T2 (9) , V3 ( 7 ) ,V4(6) ,V5(13) ,V6(6) ,W1(6) ,W2(6) 

DIM D9 ( 6 ) , A8 ( 3 ) , A9 ( 3 ) ,A6(6) ,A7(6) ,A4(6) 

DIM S4 (6) , S5 (6) , S6 (6) , S7 (6) 

DIM D1 (6,23) , D5 (6,6) ,D8(6,23) ,T3(6,4) ,R9(5,9) 

S6=48 \ FOR 1=1 TO 6 \ S4(I)=S6 \ NEXT I 

*The next section initializes flags and summations 

FOR 1=1 TO 6 \ B3 (I) =2 \ S5(I)=S4(I) \ NEXT I 

FOR 1=0 TO 5 \ FOR J=0 TO 9 \ R9(I,J)=0 \ NEXT J \ NEXT 


LI— 1 • 55 \ L2=l . 55 \ L8=0 \ C$=":" \ C2=0 \ C4=0 \ P2=0 
\ V2=0 

♦stop here to catch up ( type continue to resume) 

STOP 

♦Set crate no. and set to discharge phase 

CALL CRATE ( 5 ) \ CALL C (5 , 0 , 16 , 2 *2 ) \ CALL C(5, 0,16,0) 

♦Clear lppm log input 

CALL C(4, 1,16, (2*12)) \ CALL C(4, 1,16,0) 

♦Set up initial values 

S2=0 \ Ml=l \ P8=0 \ P9=0 \ J9=0 

R2=l . 01 \ F3=0 \ Kl=l/60 

T8=0 


♦Get input switch closures 
GOSUB 5000 


\ 


♦check for shutdown 
IF F9=l GOTO 1900 

♦check power failure signal if zero skip to next check 
IF FI (0) =1 GOTO 1080 

♦check power fail flag, if set go check signal again 
IF Vl=l GOTO 1900 

♦power fail signal "on” flag not set so print out notice 
header 


GOSUB 1810 

♦print power fail message 
PRINT #2, "POWER FAILED SINCE" 

♦print blanks, close output, & set power fail flaa 
PRINT #2 \ CLOSE #2 \ Vl=l 
♦go beginning to check for power return 
GOTO 1000 

♦if flag is zero continue normal input check 
IF V1=0 GOTO 1150 

♦power was off, now on, get current time 

CALL C (4, 1,16, (2*15)) \ CALL C(4, 1,16,0) \ GOSUB 5200 
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1100 


*open output line & print header 
GOSUB 1810 
♦print out message 
1110 PRINT #2," POWER RETURNED" 

♦close output line & reset flag 
1120 PRINT #2 \ CLOSE #2 \ V1=0 
♦clear out lppm signal 

1130 CALL C(4, 1,16, (2*12) ) \ CALL C(4, 1,16,0) 

♦go back to checking input signals 
1140 GOTO 1000 

♦if flag set go scan branch 
1150 IF F2 ( 10) = 1 GOTO 2000 

♦set up battery loop to check print requests 
1160 FOR 1=1 TO 7 

♦if recond sw set, set recond flag 
1170 IF F2 ( I ) =1 THEN V3(I)=1 

♦if printed flag set skip printing 
1180 IF Pl=l GOTO 1210 

♦if print flag not set go check another 
1190 IF FI (I) =0 GOTO 1210 

♦if print requested set flag 
1200 Ul=l 


♦get next 
1210 NEXT I 

♦if prints not requested skip 
1220 IF U1=0 GOTO 1400 


♦print header 
1230 GOSUB 1810 

♦set up battery loop 
1240 FOR 1=1 TO 6 

♦skip if battery print not requested 
1250 IF FI (I) =0 GOTO 1340 
♦print battery values 

1270 PRINT # 2 , " BATTERY=" ; I ; " V=" ;D2 (I) I=" ,* 

D3 (I) ; "BPRC I=";D9(I) ; "S0C=" ;S5 (I) ; "AHO=" ,* (-1*A2(I) )/60 
♦set up to print cell voltages 
1280 A=1 \ N=12 \ GOSUB 1850 
♦print some more 

1290 PRINT #2 \ A=13 \ N=23 \ GOSUB 1850 
♦print temperatures 

1300 PRINT #2 \ FOR 11=1 TO 6 \ PRINT #2, USING " 

###•##", D5 (1,11) ; \ NEXT II \ PRINT #2 


USING « ###.## " , D8 (1,11) ; 

D8 (1,11) 


1310 FOR 1=1 TO 12 \ PRINT #2, 

\ NEXT II \ PRINT #2 
1320 FOR 1(1) =13 TO 23 \ PRINT #2, USING " ###.## " 
\ NEXT II 
♦add spaces 

1330 PRINT #2 \ PRINT #2 
♦get another 
1340 NEXT I 


♦check bus data request 
1350 IF FI (7) =0 GOTO 1380 
♦print header 

1360 PRINT #2, "BUS VOLTS CURR" 


♦print data 

1370 FOR 1=1 TO 3 \ PRINT #2, USING " # ##.### ##.###», 

I , A9 ( I ) , A8 ( I } \ NEXT I 
♦close up print & set "printed" flag 
1380 Pl=l \ CLOSE #2 \ U1=0 

♦if sw not set skip force night routine 
1400 IF FI (14) = 0 GOTO 1430 

♦if already forced to night skip 
1410 IF P3=l GOTO 1430 

♦force night, set flag & clear begin flags 
1420 CALL C(5, 0,16, 2*2) \ CALL C(5, 0,16,0) \ PRINT "FORCE 
NIGHT" \ P3=l \ P4=0 \ V7=0 \ V8=0 
♦if sw not set skip force day routine 
1430 IF FI ( 11) =0 GOTO 1460 

♦if already forced to day skip 
1440 IF P4=l GOTO 1460 

♦force day, set flags and clear begin flags 
1450 CALL C( 5, 0,16, 2*1) \ CALL C(5, 0,16,0) \ PRINT "FORCE 
DAY" \ P4=l \ P3=0 \ V7=0 \ V8=0 
♦if sw not set skip begin night routine 
1460 IF FI ( 12 ) =0 GOTO 1500 

♦if already begin night skip 
1470 IF V7=l GOTO 1500 

♦print message & set/reset flags 
1480 PRINT "BEGIN NIGHT" \ V7=l \ P3=0 \ P4=0 \ V8=0 \ C4=0 
♦go to 'end of orbit' routine 
1490 GOTO 2530 

♦if sw not set, skip begin day routine 
1500 IF FI (13 ) =0 GOTO 1540 

♦if already begin day skip 
1510 IF V8=l GOTO 1540 

♦set day output & set phase flag to change 
1520 CALL C(5, 0,16,2*1) \ CALL C(5, 0,16,0) \ P2=l 
♦print message & set/reset flags 
1530 PRINT "BEGIN DAY" \ V8=l \ P3=0 \ P4=0 \ V7=0 \ C2=0 
♦test to see if tape on line 
1540 IF FI (8) =1 GOTO 1570 

♦switch off was it on? 

1550 IF Ml=l GOTO 1590 

♦was off return to beginning 
1560 GOTO 1000 

♦tape off line sw. on, was it before? 

1570 IF Ml=l GOTO 1000 

♦new off line request, close tape 
1580 CLOSE #9 \ MI=1 \ GOTO 1000 

♦new on-line request, turn on tape output 
1590 OPEN "MSO : DATA" FOR OUTPUT AS FILE #9, FILESIZE 1 
♦set flags and return 
1600 M1=0 \ T9=0 \ GOTO 1000 

♦send out shutdown closure & set flag 
1790 CALL C(5, 0,16, (2*14)) \ F9=l 
♦send out alarm closure 
1800 CALL C(5, 0,16, (2*15)) \ CALL C(5, 0,16,0) 

♦open printer file 
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1810 OPEN "LT:" FOR OUTPUT AS FILE #2 

♦print header data ^ , v 

1820 PRINT #2 , T1 (0) ;C$;T1(1) ;C$;T1(2) ;C$;T1(3) ?C$;T1(4) ; 
"ORB=";02;"P=" ;P5;"C2=";,C8;"C4=" ;C9 \ RETURN 
♦print cell data 

1850 FOR I1=A TO N \ PRINT #2, USING " ##.#### ",D1(I,I1); \ 
NEXT II \ RETURN 
♦send ippm pulse 

1900 CALL C ( 3 , 0 , 16 , 3 ) \ CALL C(3, 0,16,0) 

♦return to beginning 
1910 GOTO 1000 


2000 REM SCAN BRANCH 

♦send " latch" pulse to clock 
2010 CALL 0(4,1,16,(2*12+2*15)) \ CALL C(4, 1,16,0) 

♦send "scanning" pulses out 
2020 CALL C(3, 0,16,3) \ CALL C(3, 0,16,0) 

♦go scan all data & convert as necessary 
2030 GOSUB 4000 

♦go get "now" time 
2040 GOSUB 5200 

♦go check hi-lo limits 
2050 GOSUB 7000 

♦test for "initial" flag 
2060 IF V2=l GOTO 2090 

♦store starting time 

2070 FOR 1=1 TO 6 \ FOR J=0 TO 4 \ T3 (I , J) =T1 ( J) \ NEXT J \ 
NEXT I 

♦set "initial" flag 
2080 V2=l 

♦set up loop 
2090 FOR 1=1 TO 6 
♦check phase 
2100 IF P2=l GOTO 2130 

♦check for first discharge phase scan if no skip 
2110 IF C4>0 GOTO 2150 
♦skip 

2120 GOTO 2140 

♦check for first phase scan if no skip 
2130 IF C2>0 GOTO 2150 

♦set up last scan value 

2140 D7 (I) =D3 (I) 

♦calculate current average 
2150 N=(D3(I)+D7(I))/2 

2152 IF D3 (I) >0 GOTO 2154 

2153 S5 (I) =S5 (I) +N*K1 \ GOTO 2155 

2154 S5 (I) =S5 (I) +N*K1/R2 

2155 IF F3=0 GOTO 2160 

2156 IF P2=l GOTO 2170 

♦check for negative current 
2160 IF D3 (I) <0 GOTO 2180 
♦calculate amps, in 

2170 A1 ( I ) =A1 ( I ) +N \ W1 (I) =W1 (I) + (N*D2 (I) ) \ GOTO 2190 


♦calculate amps, out 

2180 A2(I)=A2(I)+N \ W2 (I) =W2 (I) + (N*D2 (I) ) 

♦update last current 

2190 D7 ( I ) =D3 ( I ) \ (A3 (I) =A3 (I) +D9 (I) ) 

♦temporarily store phase flag 

2191 Y1=P2 

♦check trickle charge flag 
2194 IF F8=0 GOTO 2200 

♦tickles charge on, reset SOC values 

2196 S5 (I) =S4 (I) \ F7=l \ T8=C2 

♦set trickle charge flag for output 

2197 Y1=P2+10 

2200 IF P2=0 GOTO 2230 

♦in charge find hi cells 
2210 GOSUB 8350 

♦check if still in recond. 

2230 IF V3 (I) =1 GOTO 2670 
♦get another battery 
2240 NEXT I 

2245 IF F7=l THEN F8=0 

♦check load bank total current 
2250 A8 ( 0 ) =A8 ( 1 ) +A8 ( 2 ) +A8 ( 3 ) \ IF A8(0)<99 GOTO 2280 
♦out of limit go to shutdown 
2260 GOSUB 1790 

♦print message 

2270 PRINT #2, "TOTAL BUS I=";A8(0) \ CLOSE #2 
♦transmit data to smart system & mag tape 
2280 GOSUB 5500 

♦set print parameters 
2290 P5=P2 \ 02=01 
♦check phase 
2300 IF P2=l GOTO 2430 

♦update discharge counter & display 
2310 C4=C4+1 \ PRINT "DISC MIN=" ;C4 ; "C3=" ;C3 ; "ORBIT NO."; 

01 \ C9=C4 \ C8=C2 
2320 GOSUB 3000 

♦check for "Forced Day" 

2330 IF P4=l GOTO 2350 

♦go check power supply limits 
2340 GOSUB 7600 

♦discharge time not up return to main 
2350 IF C4<C3 GOTO 1000 
♦set up loop 
2360 FOR 1=1 TO 6 
2362 S7 (I) =S5 (I) 

♦go check disch. hi-lo cells 
2370 GOSUB 8200 

♦go get E-O-D H-L temps 
2380 GOSUB 8500 

♦store results 

2390 B9 ( I ) =A \ B8 (I) =L \ B7(I)=H 
♦next batt. 

2400 NEXT I 

♦send out day pulse & set day flag * reset force & begin 
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2410 

V7=0 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2496 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2595 

2600 

2603 

2604 
2610 

2620 

2630 


CALL C(5 , 0, 16, 2 * 1) \ CALL C(5, 0,16,0) \ P2=l \ P4=0 \ 
\V8=0 

♦return to main program 
GOTO 1000 


♦update charge counter 

C2=C2+1 \ PRINT "CHRG MIN=" ;C2 ; "Cl=" ? 

\ C8=C2 

♦go check power supply limits 
GOSUB 7800 

♦if charge time not up go to main 
IF C2<C1 GOTO 1000 


Cl; "ORBIT NO."; 01 


♦update orbit count 
01 = 01+1 

♦update orbit skip counter 
S2=S2+1 

♦check its value 
IF S2>0 THEN S2=-S1 
♦set up loop 
FOR 1=1 TO 6 

♦go get END-O-PHASE temps 
S6 (I) =S5 (I) 

GOSUB 8500 

♦store results 

E9 (I) =A \ E8 (I) =L \ E7 ( I ) =H 

♦go get next 

NEXT I ^ 

♦send out night pulse & set day flags & reset force - 

begin flags 

CALL C(5, 0,16,2*2) \ CALL C(5, 0,16,0) \ P2=0 \ P3=0 \ 
V7=0 \ V8=0 
♦set up loop 

OPEN "LS:" FOR OUTPUT AS FILE #1 
♦open line to printer 
FOR 1=1 TO 6 

♦if in recon. skip printer 
IF V3(I)=1 GOTO 2590 
♦go print batt results 
G4=C4 

♦go print batt. orbital data 
GOSUB 6000 
♦next batt 
NEXT I 


♦close print 
T8=99 


CLOSE #1 

♦zero chrg-disch counters 
J9=J9+1 

IF J9>9 THEN J9=0 


C2=0 \ C4=0 
♦set up batt loop 
FOR 1=1 TO 6 

♦test for recond. skip time if yes 
IF V3 (I) =1 GOTO 2650 


♦load new sunset time 

2640 FOR J=0 TO 4 \ T3 (I, J) =T1 (J) \ NEXT J 
♦next batt . 

2650 NEXT I 

♦go to main 
2660 GOTO 1000 

♦update discharge recond counter 
2670 C5 (I) =C5 (I) +1 

♦check if recond still on 
2680 IF F2 (I) =0 GOTO 2770 

♦check if captest complete 
2690 IF V4 (I) =1 GOTO 2240 

♦check for end of captest 
2700 IF D2(I)>26.45 GOTO 2240 

♦set captest complete flag 
2710 V4 (I) = 1 

♦set disch min, to captest time 
2720 G4=C5(I) 

♦open output for captest info 
2730 OPEN "LS : " FOR OUTPUT AS FILE #1 
2735 GOSUB 8200 

♦go print orb (captest) info 
2740 GOSUB 6000 

♦close output 
2750 CLOSE #1 

♦return to next batt. 

2760 GOTO 2240 

♦recond over clear flags & set up output 
2770 V3 (I) =0 \ V4 (I) =0 \ G4=C5(I) 

♦clear disch (captest) counter 
2780 C5 (I) = 0 

♦go print summary data 
2790 GOTO 2730 

♦subroutine to check bus current for day 
3000 IF P9=0 GOTO 3060 
♦set up loop 
3010 FOR 1=1 TO 3 

♦check for good bus-current 
3020 IF A8 (I) >5 GOTO 3050 
♦bad limit go alarm 
3030 GOSUB 1800 

♦print message 

3040 PRINT #2, "BUS No. " ; I ; "CURR=" ;A8 (I) \ CLOSE #2 
♦get another 
3050 NEXT I 
♦return 
3060 RETURN 
4000 REM SCAN DATA 

♦set up crate & clear begin/ force flags 
4010 CALL CRATE (4) 

♦set up battery loop 
4020 FOR 1=1 TO 6 

♦set up cell loop 
4030 FOR J=1 TO 23 
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*set up char. no. • 

4040 M%=23* (1-1) +J+512 \ H=D1(I,J) \ U2=0 

*set up mux & adc at gain of 4 (+-2.56v) 

4050 CALL C ( 1 , 0 , 16 , M% ) 

*set LAM status 

4051 CALL 0(1,0,27, ,Q,X) 

*if not set try again 

4052 IF Q=0 GOTO 4051 
*get adc results 

4060 CALL C(1,1,0,Z1%) 

♦convert to voltage 

4070 D1 (I, J) = (Z1%*78. 125*10' (-6) ) 

♦check for initial phase scan 

4071 IF C4=0 GOTO 4080 

4072 IF C2=0 GOTO 4080 

4073 IF ABS (H-Dl ( I , J) ) < . 01 GOTO 4080 
♦check tries 

4074 IF U2>2 GOTO 4080 

♦incrmnt counter & go try again 

4075 U2=U2+1 \ GOTO 4050 
♦next cell 

4080 NEXT J 

♦next batt. 

4090 NEXT I 

♦set up batt. loop 

4100 FOR 1=1 TO 5 

♦set up cell loop 

4110 FOR J=1 TO 23 

♦set up char no. 

4120 M%=652+23* (1-1) +J \ H=D8(I,J) \ U2=0 

♦set up mux & adc (gain 1 h — 2.56v) 

4130 CALL C ( 1 , 0 , 16 ,M%) 

♦check if conversion complete 

4131 CALL C ( 1 , 0 , 27 , , Q, X) 

♦if not ready try again 

4132 IF Q=0 GOTO 4131 
♦get results 

4140 CALL C(l,l r 0,Zl%) . 

♦convert to voltage & pressure (30mv=150psig) 

4150 D8(I,J)=(Z1%*78. 125*10 (-5))*4.97 
♦check jump in reading 

4151 IF ABS (H-D8(I,J) ) <10 GOTO 4160 
♦check if enough tries 

4152 IF U2>2 GOTO 4160 

♦not too many try again 

4153 U2=U2+1 \ GOTO 4130 
♦check for highest pressure 

4160 IF A6 ( I ) <D8 ( I , J) THEN A6 (I) =D8 (I , J) \ A7(I)=J 
♦next cell 

4170 NEXT J 

♦next batt. 

4180 NEXT I 

♦change to crate 5 

4190 CALL CRATE (5) 


•set up cell loop 

4200 FOR J*1 TO 23 

•set up to check for bad readings 

4210 H-D8(6,J) \ U2-0 
•set up mux & adc 

4220 CALL C(8, 0, 16, (511+J) ) 

•check if conversion complete 

4221 CALL C(8,0,27, ,Q,X) 

•if not try again 

4222 IF Q*0 GOTO 4221 
•get adc results 

4230 CALL C(8,1,0,Z1%) 

•convert to volt & pressure 

4240 D8 (6 , Jj * (Zl%*78 . 125*10* (-5) )*4.97 
•check jump in readings 

4241 IF ABS (H-D8 (6, J) )<10 GOTO 4250 
•too many tries 

4242 IF U2>2 GOTO 4250 
•go try again 

4243 U2=U2+1 \ GOTO 4220 
•check for high pressure 

4250 IF A6(6)<D8(6,J) THEN A6 (6) =D8 (6 , J) \ A7(6) = J 
•next cell 

4260 NEXT J 

•set up batt loop 

4270 FOR 1*1 TO 6 

•set up char no. & reset print flag 

4280 M%*119+I \ H*D2 ( I ) \ U2=0 
•set up mux & adc 

4290 CALL C(8,0,16,M%) 

•check LAM 

4291 CALL C (8 , 0 , 27 , , Q, X) 

4292 IF Q=0 GOTO 4291 
•get adc results 

4300 CALL C(8, 1, 0, Zl%) 

•convert to volt 

4310 D2 (I) *(Z1%*6. 26)/1000 
•check batt v jump 

4311 IF ABS (H-D2 ( I ) ) < . 1 GOTO 4320 
•check tries 

4312 IF U2>2 GOTO 4320 
•try again 

4313 U2=U2+1 \ GOTO 4290 
•set up mux * adc 

4320 CALL C(6, 0, 16, (1-1) ) 

•check LAM 

4321 CALL C(6 , 0 , 27 , , Q,X) 

•if not ready try again 

4322 IF Q=0 GOTO 4321 
•get results 

4330 CALL C(6,1,0,Z1%) 

•convert to volt & store it batt I 

4340 D3 (I) =Z1%*2 . 50000E-03 

•set up mux for BPRC current 


54 



4350 CALL C(6, 0,16, (517+1) ) 

•check LAM 

4351 CALL C(6,0,27, ,Q,X) 

*if not ready try again 

4352 IF Q-0 GOTO 4351 

•get results 

4360 CALL C(6,1,0,Z1%) 

•convert and store BPRC current 
4370 D9 (I) *Z1%*6. 25000E-04 
•next battery 
4380 NEXT I 

•current correction factors 
4390 D3(l)*D3(l)+0\D3(2)*D3(2)+0\D3(3)*D3(3)+0 
4400 D3(4)*D3(4)-0\D3(5)*D3(5)+0\D3(6)*D3(6)+0 
4410 D9 (1)*D9 (1) -2 . 00000E-03 \ D9 (2) *D9 (2) -1. 00000E-03 \ 
D9 (3) =D9 ( 3 ) -8 . 00000E-03 

4420 D9 ( 4 ) *D9 ( 4 ) -7 . 00000E-03 \ D9 (5)*D9 (5) -6. OOOOOE-03 \ 
D9 ( 6 ) =D9 (6)-. Oil 

•set up batt loop 

4430 FOR I®1 TO 6 

•set up meas. loop 

4440 FOR J*1 TO 6 

•set up char no. & adc data 
4450 M%*335+6* (1-1) +J 
•set up adc & mux 
4460 CALL C(8,0,16,M%) 

•get results 

4470 CALL C(8,1,0,Z1%) 

•convert to volts 
4480 V=Z1%*. 15625/1000 
•test for too high 
4490 IF V>2 .2303 THEN V*2.2303 
•test for too low 
4500 IF V<-1 . 2575 THEN V=-1.2575 
•convert to res. 

4510 R* ( (V+2 . 515) / (2 . 515-V) ) *3000 

•convert to deg c 

4520 D5(I,J)=(5153.2/(LOG(R)+7.03721) ) -317. 688 
•next meas 
4530 NEXT J 

•next batt. 

4540 NEXT I 

4542 D5 (2 , 3)*(D5(2,1) +D5 (2 , 2)+D5 (2 , 4)+D5 (2 , 5) +D5 (2,6) )/5 

•set up loop for sas/ps. 

4550 FOR 1*1 TO 13 

•set up mux & adc data 

4560 M%*578+I 

•set up mux & adc 

4570 CALL C(8,0,16,M%) 

•check to see if conversion complete 

4571 CALL C(8,0,27, ,Q,X) 

•if not done try again 

4572 IF Q=0 GOTO 4571 

•get results 


4580 CALL C(8,1,0,Z1%) 

♦convert to amps 
4590 D6(I)=Z1%*78. 125*10' (-3) 

♦next sas 
4600 NEXT I 

♦set up loop for bus data 
4610 FOR 1=1 TO 3 

♦adjust range and chan 
4620 M%=575+I 

♦set up mux 

4630 CALL C(8,0,16,M%) 

♦check to see if conversion complete 

4631 CALL C (8 , 0 , 27 , , Q, X) 

♦if not done try again 

4632 IF Q=0 GOTO 4631 
♦get result 

4640 CALL C(8,1,0,Z1%) 

♦convert data 

4650 A8( I) =(Z1%*78. 125*10' (-5) *2) 

♦adjust chan 
4660 M%=125+I 

♦set up mux 
4670 CALL C(8,0,16,M%) 

♦get results 
4680 CALL C(8,1,0,Z1%) 

♦convert to volts 
4690 A9 (I)=(Z1%*6.26)/1000 
♦next bus 
4700 NEXT I 

♦reset print flag 
4710 P1=0 
4720 RETURN 

5000 REM SUBROUTINE TO GET SWITCH CLOSURES 
♦set up crate/get ok from module 
5010 CALL CRATE (5) 

♦get first set of inputs (iso-inputs) 

5020 CALL C(2 , 0, 0, Zl%) 

♦get second set of inputs (non-iso) 

5030 CALL C(2,1,0,Z2%) 

♦convert both words to proper format 
5040 Z1%=ABS ( 1+Z1%) \ Z2%=ABS ( 1+Z2%) 

♦set up loop to check inputs 
5050 FOR L=0 TO 15 

♦set up compare valve & clear flags 
5060 N=2 ' ( 15-L) \ Fl(15-L)=0 \ F2(15-L)=0 

♦compare a flag if no-go skip to next check 
5070 IF Zl%— N<0 GOTO 5090 

♦reduce input by compared valve & set flag 
5080 Z1%=Z1%-N \ FI ( 15-L) =1 

♦compare a flag if no-go skip to next check 
5090 IF Z2%-N<0 GOTO 5110 

♦reduce input by compared valve & set flag 
5100 Z2%=Z2%-N \ F2 (15-L) =1 

♦get next get to compare 
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5110 NEXT L 

♦return to main program 
5120 IF F2 (7) =0 GOTO 5150 
5130 IF F7=l GOTO 5160 
5140 F8=l \ GOTO 5160 
5150 F7=0 
5160 RETURN 
5200 REM GETIME 

♦set up crate & set hold/ reset 
5210 CALL CRATE (5) 

♦set up loop 
5220 FOR 1=1 TO 9 

♦advance char, counter in clock 
5230 CALL C ( 4 , 1 , 16 , (2 ‘ 14 ) ) \ CALL C(4, 1,16,0) 

♦get inputs 
5240 CALL C(2,1,0,Z1%) 

♦adjust results 
5250 N1 (I) =ABS ( 1+Z1% ) 

♦next input 
5260 NEXT I 

♦reset counter \ and release hold 
5270 CALL C(4 , 1, 16, (2*15) ) \ CALL C (4 , 1 , 16 , (2 * 13 ) ) \ CALL C( 
4,1,16,0) 

♦set up decode loop 
5280 FOR 1=1 TO 9 

♦clear clock char 
5290 T2 (I) =0 

♦set up bit loop 
5300 FOR J=0 TO 3 

♦set up compare no. 

5310 N=2 * ( 14-J) 

♦compare bits if yes continue 
5320 IF N1 ( I ) -N<0 GOTO 5350 
♦adjust value 
5330 N1 (I) =N1 (I) -N 

♦add bit to char word 
5340 T2 ( I ) =T2 ( I ) +2 * ( 3-J) 

♦next bit 
5350 NEXT J 

♦next char 
5360 NEXT I 

♦build days 

5370 T1 (1) =100*T2 ( 1) +1©*T2 (2)+T2 (3) 

♦build hours 

5380 T1 (2) =10*T2 (4) +T2 (5) 

♦build minutes 
5390 T1 (3) =10*T2 (6) +T2 (7) 

♦build seconds 
5400 T1 (4) =10*T2 (8) +T2 (9) 

♦return 
5410 RETURN 

5500 REM SUBROUTINE TO TRANSMIT DATA TO "SMART" SYSTEM 
♦open file #3 (rs232 output to "smart" system) 

5510 OPEN "TV:" FOR OUTPUT AS FILE #3 


♦transmit start char 
5520 PRINT #3, "A" 

♦set loop and transmit time 
5530 FOR 1=0 TO 4 \ PRINT #3,T1(I) \ NEXT I 
♦transmit header data 

♦output orbit count, phase, and charge counters 
5540 PRINT #3,01 \ PRINT #3,Y1 \ PRINT #3,C2 \ PRINT #3,C4 
♦set up batt loop 
5550 FOR 1*1 TO 6 

♦output batt . no . 

5560 PRINT #3,1 

♦output cell volt. 

5570 FOR J=1 TO 23 \ PRINT #3,D1(I,J) \ NEXT J 
♦output cell press 

5580 FOR Jl=l TO 23 \ PRINT #3,D8(I,J1) \ NEXT J1 
♦output bat v & bat I 

5590 PRINT # 3 , D2 ( I ) \ PRINT #3,D3(I) \ PRINT #3,D9(I) 

♦output temps 

5600 FOR J=1 TO 6 \ PRINT #3,D5(I,J) \ NEXT J 
♦output recond flags 
5610 PRINT #3 , V3 (I) 

♦get another 
5620 NEXT I 

♦output sas currents 

5630 FOR 1=1 TO 13 \ PRINT #3,D6(I) \ NEXT I 
♦output bus data 

5640 FOR J=1 TO 3 \ PRINT #3,A8(J) \ PRINT #3,A9(J) \ NEXT J 
♦close file 
5650 CLOSE #3 

♦check for mag tape record 
5660 IF Ml=l GOTO 5880 
♦check skip orbit 
5670 IF S2<0 GOTO 5880 
♦check skip scan 

5680 IF FI (9) =0 THEN S3=0 \ GOTO 5710 
♦check for skip 
5690 IF S3=0 GOTO 5710 
♦reset skip flag 
5700 S3=-l \ GOTO 5870 

♦increment record counter 
5710 T9=T9+1 

♦check for too many records 
5720 IF T9<3700 GOTO 5740 

♦too many print message 
5730 PRINT "OUT OF TAPE" \ GOTO 5880 
♦print start char 
5740 PRINT #9, "A" 

♦record time 

5750 FOR 1=0 TO 4 \ PRINT #9,T1(I) \ NEXT I 
♦record header data 

5760 PRINT #9,01 \ PRINT #9,P2 \ PRINT #9,C2 \ PRINT #9,C4 
♦set up for battery loop 
5770 FOR 1=1 TO 6 

♦record batt no. 
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5780 PRINT #9,1 

♦set up loop and record cell volt 
5790 FOR J=1 TO 23 \ PRINT #9,D1(I,J) \ NEXT J 
♦set up loop and record cell press 
5800 FOR Jl-1 TO 23 \ PRINT #9,D8(I,J1) \ NEXT J1 
♦record batt data 

5810 PRINT #9 , D2 (I) \ PRINT #9,D3(I) \ PRINT #9,D9(I) 

♦record batt temps 

5820 FOR J=1 TO 6 \ PRINT #9,D5(I,J) \ NEXT J 
♦record recond. flag 
5830 PRINT #9 , V3 (I) 

♦get another batt 
5840 NEXT I 

♦set up loop to record sas data 
5850 FOR 1=1 TO 13 \ PRINT #9,D6(I) \ NEXT I 
♦set up loop for bus data 

5860 FOR J=1 TO 3 \ PRINT #9,A8(J) \ PRINT #9,A9(J) \ NEXT J 
♦add to skip counter 
5870 S3=S3+1 
♦return 
5880 RETURN 

6000 REM ORBDAT SUBROUTINE TO PRINT OUT ORBIT DATA 
♦print first part of 1st line 
6010 PRINT # 1 , " BAT ORBIT SUNSET TIME BAT WHO 

BAT EFF DCH CHG RR " ; 

♦print secon part of 1st line 

6020 PRINT #1," DOD AHO BPRC AH CHI T-CAV T-CLO T — 
DHI T-DAV T-DLO T" 

♦print first part of 1st data line 
6030 PRINT #1, USING " # ##### ####:###:##:##:##", I , 01-1 , 

T3 (1,0) ,T3 (I, 1) , T3 (1,2) ,T3(I,3) ,T3(I,4) ? 

♦check for zeros & set to limit valves 
6040 IF A1 (I) =0 THEN A1(I)=10000 
6050 IF A2 (I) =0 THEN A2(I)=1 
6060 IF W1(I)=0 THEN W1(I)=1 
6070 IF W2 (I) =0 THEN W2(I)=1 

♦calculate data , v > 

6080 Gl=-l*W2(I)/60 \ G2=-1*W2 (I) /W1 (I) \ G3=A1 (I)/ (-1*A2 (I) ) 
6082 IF F3=0 THEN A4(I)=0 
6084 G5=(-1*A2 { I ) / 3 3 ) +A4 (I) 

6086 A4(I)=G5-(A1(I)/(R2*33) ) \ G8=A4(I) 

♦calculate data 

6090 G6=-l*A2(I)/60 \ G7=A3(I)/60 
6092 R9 (1-1 , J9) =G3 \ V=0 

6094 FOR 1=0 TO 9 \ V=V+R9 (1-1, 12) \ NEXT 12 \ R=V/10 
♦print data 

6100 PRINT #1 USING " ####.# #.###" ,G1,G2 ; \ PRINT #1, 

TAB (49) ,G4 ; TAB (54) ;C2 J n " ; 

♦print data 

6110 PRINT #1, USING "##.### ##.## ##.## ### . ## M , G3 , G5 ,G6 

,G7 ; 

*r>rint data 

6120 PRINT #1, USING " ##.## ##.## ##•## ##♦## ##•## ##•##" 

, E7 (I) , E9 (I) ,E8 (I) , B7 ( I ) ,B9(I) ,B8(I) 
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♦print first part of second header 
6130 PRINT #1, "DHI CV — CNO — AV CV — DLO CV — CNO” ; 

♦print 2nd part of 2nd header 
6140 PRINT #1, TAB (40) ;"CHI CV — CNO — AV CV — CLO CV— CNO” ; 

\ B5=B6(I)/23 \ E5=E6(I)/23 

6150 PRINT #1, TAB (80) ; ”HI PRESS — CNO DODD SOC SOD 

TTT RRAV: 


♦print the data 

6061 PRINT #1, USING " #.### ## #.### #.### 

B2 ( I ) , B5 , B3 ( I ) , B4 ( I ) ; 

6170 PRINT #1, TAB (40) ; \ PRINT #1, USING " #.### 
#.### ##” , El (I) , E2 (I) , E5,E3 (I) ,E4(I) ; 

6180 PRINT #1, TAB (80) ; \PRINT #1, USING "###.# 

# ##.## ##.## ### #.###”, A6 ( I ) , A7 ( I ) , A4 ( I ) , 

T8,R 

♦print space 
6190 PRINT #1 

♦skip if batt in recond 
6200 IF V3 (I) =1 GOTO 6230 
♦clear sums 


##” , B1 ( I ) , 

## #.### 

## ##•# 
S6(I) , S7 (I) , 


6205 FOR J=1 TO 6 \ S4(J)=S6 \ NEXT J 
6210 A1 (I) =0 \ A2 (I) =0 \ W1(I)=0 \ W2(I)=0 \ A3(I)=0 
6220 El (I) =0 \ B3 (I) =2 \ A6(I)=0 
♦return 


6230 RETURN 

7000 REM ROUTINE TO CHECK HI-LO LIMITS 
♦set limit value 
7010 L9=L1 


♦set up batt loop 
7020 FOR 1=1 TO 6 

♦check for limit 
7030 IF I>3 THEN L9=L2 
♦set up cell loop 
7040 FOR 11=1 TO 23 

♦check limit, if out go shutdown 
7050 IF D1 (1,11) >L9 GOTO 7140 
♦check lo limit 
7060 IF D1 (1,11) <L8 GOTO 7140 
♦next cell 
7070 NEXT II 


♦check batt curr 
7080 IF D3 (I) <-30 GOTO 7120 
♦check batt curr hi 
7090 IF D3 (I) >25 GOTO 7120 
♦get another batt 
7100 NEXT I 


♦return 
7110 RETURN 


♦go shutdown 
7120 GOSUB 1790 

♦print message 

7130 PRINT #2, "BATTERY NO. " ; I ; "CURRENT=" ;D3 (I) \ CLOSE #2 \ 
GOTO 7100 
♦go shutdown 
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7140 GOSUB 1790 

♦print message 

7150 PRINT #2,"BATT=";I; ,, CELL= ,, ;I1;"V=";D1(I,I1) \ CLOSE #2 \ 
GOTO 7070 

7600 FOR 1=1 TO 13 
7610 U2=0 

♦check limit 

7620 IF D6 (I) <5 THEN V5(I)=0 \ GOTO 7700 
♦check if new out of limit 
7630 IF V5 (I) =1 GOTO 7700 
7640 CALL CRATE (5) \ IF U2>2 GOTO 7680 

7650 CALL C(8, 0, 16, (578+1) ) 

♦check LAM 

7651 CALL C(8,0,27, ,Q r X) 

♦if not ready try again 

7652 IF Q=0 GOTO 7651 

7660 CALL C(8,1,0,Z1%) \ D6 (I) =Z1%*78 . 125 * 10* (-3) 

7670 U2=U2+1 \ GOTO 7620 
♦go alarm 
7680 GOSUB 1800 

♦print message 

7690 PRINT #2 , "SUPPLY NO. " ;I ; "CURR=" ;D6 (I) \ CLOSE #2 \ 

V5 ( I ) =1 
♦get another 
7700 NEXT I 
7710 RETURN 

♦special night routine 
♦check flag 

7800 IF P8=0 GOTO 7870 

♦over 5 min. into phase 
7810 IF C2>5 GOTO 7870 
♦set up loop 
7820 FOR 1=1 TO 13 
♦check limit 

7830 IF D6 ( I ) >5 GOTO 7860 

♦out of limit go alarm 
7840 GOSUB 1800 

♦print message 

7850 PRINT #2, "SUP #" ,* I ; "I=" ; D6 (I) \ CLOSE #2 
♦get another 
7860 NEXT I 
♦return 
7870 RETURN 

8200 REM SUBROUTINE TO GET HI-LO CELLS DURING DISCHARGE 
♦set flag 
8210 U=0 

♦set up loop 
8220 FOR J=1 TO 23 

♦compare if lower skip to replace 
8230 IF B3 (I) <=D1 (I , J) GOTO 8250 

♦replace with new valve & set replace cell no. and set 
new hi 

8240 B3 (I) =D1 (I , J) \ B6 (I) =0 \ B4(I)=J \ U=1 
♦if higher get next 


8250 NEXT J 

♦check flag if 0 skip 
8260 IF U-0 GOTO 8320 
♦set limit 
8270 B1(I)«0 

♦set loop 

8280 FOR Jl-1 TO 23 

♦if less than high skip 

8290 B6(I)«B6(I)+D1(I,J) \ IF B1 (I) >D1 (I, Jl) GOTO 8310 
♦replace high 

8300 B1(I)-D1(I,J1) \ B2(I)*J1 
♦get another 
8310 NEXT Jl 
8320 RETURN 

8350 REM SUBROUTINE TO GET HI-LO CELLS DURING CHARGE 
8360 U«0 

♦set up loop 
8370 FOR J=1 TO 23 

♦reset "try" counter 
8380 U2«0 

♦check for higher cell if yes skip to replace 
8390 IF E1(I)>»D1(I,J) GOTO 8410 

♦replace hi cell and batt v & get cell no. v 
8400 El (I) =D1 (I , J) \ E6(I)«0 \ E2(I)=J \ U=1 
♦get another 
8410 NEXT J 
8420 IF U«0 GOTO 8480 
♦set lo cell 
8430 E3(I)=2 

♦set up loop 
8440 FOR Jl=l TO 23 

♦compare for lows 

8450 E6(I)-E6(I)+D1(I,J1) \ IF E3 (I) <D1 (I, Jl) GOTO 8470 
♦replace valves 

8460 E3 (I) =D1 (I , Jl) \ E4(I)=J1 
♦get another 
8470 NEXT Jl 
8480 RETURN 

8500 REM SUBROUTINE TO GET HI-LO TEMPS 
♦set up limit 
8510 H=-15 \ L=25 \ N=0 
♦set up loop 
8520 FOR J=1 TO 6 
♦get sums 
8530 N=N+D5(I,J) 

♦check for new lo 
8540 IF L>D5 ( I , J) THEN L=D5(I,J) 

♦check for new hi 
8550 IF H<D5 (1/ J) THEN H=D5(I,J) 

♦get another 
8560 NEXT J 

♦compute average 
8570 A=N/6 

♦check for out of limit average 
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8580 IF A>25 GOTO 8610 

*check for lo out of limit 
8590 IF A<-5 GOTO 8610 
8600 RETURN 

* chamber shutdown and alarm 
8610 CALL 0(5,0,16, (2*13)) \ GOSUB 1790 
♦print message 

8620 PRINT #2," BATTERY” ;I ; "TEMP*" ;A \ CIOSE #2 \ GOTO 8600 
9999 END 
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APPENDIX E 


NAME ST6BINT 

SECTION ST6B2 
LIST DBG 

********************************************** 

********************************************** 


***** ***** 

***** SPACE TELESCOPE ***** 

***** SIX BATTERY TEST ***** 

***** INTERRUPT HANDLER ROUTINE ***** 

***** ***** 

***** BY: JOHN R. BUSH, JR. ***** 

***** ***** 

***** LATEST VERSION: 02/09/88 ***** 

***** ***** 


********************************************** 

********************************************** 


CR 

EQU 

ODH 

LF 

EQU 

OAH 

CU 

EQU 

15H 

EOT 

EQU 

04H 

SP 

EQU 

2 OH 

TTY BASE 

EQU 

OOCOH 

t 

GLOBAL 

TTYINT , TTYSETUP , WP2 



INTENUOHtfUl **** 


PRECEDING PAGE BLANK NOT FILMED 


INTERRUPT ENTRY POINT 


TTYINT 

TB 

21 


JEQ 

RCHAND 

TXHAND 

MOVB 

0TXBUFF (R4 ) 


SRL 

RO, 8 


Cl 

RO , EOT 


JEQ 

LASTCHAR 


Cl 

RO, 3CH 


JEQ 

MORED 


INC 

R4 


BL 

RTWP 

0TXCHAR 

LASTCHAR 

CLR 

RO 


CLR 

R4 


BL 

0TXCHAR 


SBZ 

RTWP 

19 

TXCHAR 

SBO 

16 

TXRDY 

TB 

22 


JNE 

TXRDY 


SLA 

RO, 8 


LDCR 

RO, 8 


SBZ 

16 


B 

*R11 

MORED 

• 

9 

• 

B 

MOREDISP 

f 

m 

; CONVERT 
» 

RO TO 

ASCII 

TASCII 

AI 

RO , 3 OH 


Cl 

RO, 3 AH 


JLT 

NOCONV 


AI 

RO, 7 

NOCONV 

B 

*R11 


;IF SET, RECEIVED A CHAR 
;GO TO RECEIVER HANDLER 
RO ;GET NEXT CHAR TO XMIT 

} IS IT THE END? 

;YES, JUMP 

?< INDICATES MORE DATA 
ON "D" COMMAND 

;NO POINT TO NEXT CHAR 
; TRANSMIT RO 
; THROUGH THIS TIME 
;NULL 

; TO CLEAR INTERRUPT 
; DISABLE 9902 INTERRUPT 

; TURN ON XMITTER 
? SEE IF XMITTER READY 
; NO, JUMP 
; SHIFT FOR LDCR 
; SEND CHAR 
; TURN OFF XMITTER 
? RETURN 

;GET IN RANGE 


;FOR ALL ASCII 
? A - F? 

; NO, OK 
; FOR LETTERS 
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IF JUST RECEIVED A CHAR YOU ARE HERE 


RCHAND 

STCR 

RO, 8 ; 

GET IT 


SRL 

RO, 8 ? 

SHIFT TO LSB 


SBO 

18 ; 

RESET INTERRUPT 


ANDI 

RO, 007FH 

STRIP PARITY 


CI 

RO, CU 

IS IT A CONTROL U? 


JEQ 

CUTASK 

GO DO IT 


CI 

RO, CR 

IS IT A CR? 


JEQ 

CRTASK 

GO DO IT 


BL 

§TXCHAR ; 

• 

9 

• 

9 

ELSE, ECHO CHARACTER 
TXCHAR ALSO SHIFTS SO 
DONT NEED 
NEXT STEP HERE 


;SLA 

RO, 8 

SHIFT FOR BYTE STORE 
(HERE AND ELSEWHERE) 


MOVB 

RO , ©RCBUFF (R3 ) 

STORE CHAR 


INC 

RTWP 

R3 

INC RCBUFF POINTER 


; CONTROL U TASK 

CUTASK CLR 
CLR 
MOVB 
INC 
MOVB 
INC 
BL 

RTWP 

; CR TASK . . . HERE GOES 


§CUMSG(R4) ,§TXBUFF(R4) 
R4 

@CUMSG(R4) , 0TXBUFF (R4) 
R4 

@ PROMPT 


CRTASK SLA RO, 8 

MOVB RO , 0RCBUFF (R3 ) ; STORE CR 

FDCS CLR R3 

CLR R4 

MOVB @RCBUFF (R3),RO 

INC R3 

SRL RO, 8 

Cl RO, "X" ? X? 

JEQ XT ASK 

ci ro , M s " ; s? 

JEQ STASK 

CI RO,"D" ; D? 

JEQ DTASK 

PQTASK BL GQTASK i NONE ON THE ABOVE, 

ABORT 

RTWP 
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X COMMAND ROUTINE 


XT ASK LI 

LI 
BL 
MOV 
JEQ 
MOV 
MOV 
BL 
BL 


R1 , XTABE 
R2 , XTAB 
0LDPAR 
RO, RO 
PQTASK 
*RO,Rl 
Rl,RO 
§ NEWLINE 
0CONTBUFF 


BL § PROMPT 

RTWP 

t 

; S TASK COMMAND ROUTINE 

STASK LI R1 , STABE 

LI R2 , STAB 

LI R6 , 5 


BL 0LDPAR 

MOV RO, RO 

JEQ PQTASK 

BL 0CKDEL 

MOV R1 , R1 

JEQ PQTASK 

BL 0GDATAAD 


MOV R1 , R1 

JEQ PQTASK 


MOV R2 , *RO 

CLR R4 

BL 0 PROMPT 

RTWP 


? X TABLE END ADDRESS 
; X TABLE START ADDRESS 
; GET PARAMETER ADDRESS 
; CHECK FOR ERROR 
; NOT SUCCESSFUL, ABORT 
; GET DATA 
; COPY TO RO 
; PUT CR, LF INTO TXBUFF 
; CONVERT TO ASCII, THEN 
TO TXBUFF 
; ADD A PROMPT 
; AND RETURN 


; S TABLE END ADDRESS 
; S TABLE START ADDRESS 
; ABORT POSITION FOR CR 
AT WRONG PLACE 
; GET PARAMETER ADDRESS 
; SEE IF CLEAR 
; UNSUCCESSFUL, ABORT 
; GOOD DELIMITER? 

; SEE IF CLEAR 
; NO, ABORT 
; TO GET DATA FROM 
RCBUFF 

; SEE IF CLEAR 
; YES, NOT SUCCESSFUL, 
ABORT 

; STORE NEW DATA, 

; AND 
; GET 

; out 
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D TASK COMMAND ROUTINE 


DTASK 

LI 

R6 , 2 


CLR 

R7 


CLR 

R8 


BL 

©GDATAAD 


MOV 

R1,R1 


JEQ 

PQTASK 


LI 

R7 , 1 


SZC 

R7,R2 


MOV 

R2,R7 


Cl 

R9 , ODOOH 


JNE 

COND 

SDADD 

BL 

©NEWLINE 


MOV 

R7,RO 


BL 

©CONTBUFF 


BL 

©ADSPCE 


MOV 

*R7 , RO 


BL 

©CONTBUFF 


BL 

RTWP 

©PROMPT 

; CHECK 

FOR SECOND 

ADDRESS 

COND 

BL 

©GDATAAD 


MOV 

R1,R1 


JEQ 

PQTASK 


LI 

R8 , 1 


SZC 

W 

CO 

W 

N) 


MOV 

R2,R8 


MOV 

R7,R2 


C 

R2,R8 


JHE 

SDADD 


; ABORT POSITION FOR CR 


GET START ADDR 
SEE IF CLEAR 
YES, ABORT 

MAKE START ADDRESS TO 
BE THE NEXT LOWEST 
ADDRESS 

IF IT WAS ODD. SAVE IN 
R7. 

WAS LAST CHAR A CR? 

NO 

START A NEWLINE 

PUT ASCII IN TXBUFF 

ADD A SPACE 

GET DATA 

TO TXBUFF 

ADD A PROMPT 

GET OUT 


; GET END ADDRESS 
; SEE IF CLEAR 
; ABORT 

; MAKE END ADDRESS TO BE 
NEXT 

; LOWEST ADDRESS IF IT 
WAS ODD. 

; SAVE END ADDRESS 
; START ADDR 
; MAKE SURE END IS > 

THAN START 

; IT WAS NOT, SO JUST DO 
ONE 



IF HERE, START LOADING TXBUFF ONE LINE AT A TIME, ENDING 
THE LINE ON XXXEH WITH THE LAST CHARACTER BEING A "< M (3CH) 
IF DTASK IS NOT FINISHED. START NEW LINES ON XXXOH. 

WHEN LAST DATA IS LOADED, DO "BL § PROMPT" . 


MOREDISP 

BL 

0NEWLINE 

• 

9 

START A NEW LINE 


MOV 

R7,RO 




BL 

§CONTBUFF 

• 

9 

LOAD ADDR IN TXBUFF 

MOREDL 

BL 

0ADSPCE 

• 

9 

ADD A SPACE 


MOV 

*R7 , RO 

• 

9 

LOAD DATA 


BL 

§CONTBUFF 

• 

9 

DATA TO TXBUFF 


C 

R7,R8 

• 

9 

CHECK FOR END 


JHE 

DEND 




MOV 

R7 , RO 




ANDI 

RO , OFH 

• 

9 

STRIP ALL BUT LSN 


Cl 

RO , OEH 

• 

9 

IS IT AN E? 


JEQ 

ADLA 

• 

9 

YES, ADD LEFT ARROW 


INCT 

R7 

• 

9 

ELSE, INC TO NEXT 





ADDRESS 


JMP 

MOREDL 

• 

9 

AND DO AGAIN 

ADLA 

LI 

RO, 3COOH 




MOVB 

RO , 6TXBUFF ( R4 ) 




INCT 

R7 




CLR 

R4 




SBO 

19 

; ENABLE 9902 INTERRUPT 


RTWP 




DEND 

BL 

€ PROMPT 




RTWP 
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SUBROUTINE TO LOAD A PARAMETER FROM RCBUFF 
SEARCH TABLE STARTING AT R2, ENDING AT 
R1 AND RETURN ADDRESS OF PARAMETER IN RO. 

IF INPUT WAS JUST XC, WILL SUBSTITUTE D8040,805E 
IN ORDER TO DISPLAY ALL ANALOG INPUT CHANNELS. 

IF UNSUCCESSFUL, RETURNS OS IN RO. 


LDPAR 

CLR 

RO 



CLR 

R5 



MOVB 

0RCBUFF (R3 ) ,RO 

; FIRST CHAR 


INC 

R3 



MOVB 

@ RCBUFF (R3 ) ,R5 

; SECOND CHAR 


INC 

R3 



SRL 

R5,8 



A 

R5,RO 

; RO HAS PARAMETER 


Cl 

RO, 430DH 

; WAS IT JEST XC? 


JEQ 

DCS 


FPARL 

C 

RO, *R2+ 

? MATCH? 


JEQ 

FPAR 

; YES 


INCT 

R2 

; NO, SKIP OVER ADDRESS 


C 

R2,R1 

; END OF TABLE? 


JHE 

NPAR 

; YES, NO MATCH 


JMP 

FPARL 

; NO MATCH YET, TRY 




AGAIN 

FPAR 

MOV 

*R2 , RO 

; LOAD ADDRESS OF 




PARAMETER 


B 

*R11 


NPAR 

CLR 

RO 

; NO MATCH, RETURN ZERO 


B 

*R11 


DCS 

CLR 

R3 


DCSL 

MOVB 

§DDCS (R3) , 0RCBUFF (R3 ) 


MOVB 

@DDCS (R3) ,RO 



INC 

R3 



SRL 

RO, 8 



Cl 

RO, CR 



JNE 

DCSL 



B 

FDCS 


; SUBROUTINE TO 

CHECK NEXT RCBUFF CHAR FOR A VALID 

; DELIMITER (BLANK OR COMMA) , RETURNS 

ZERO IN R1 IF 

;NOT SUCCESSFUL. 



CKDEL 

CLR 

R1 



MOVB 

0RCBUFF (R3 ) ,R1 



INC 

R3 



Cl 

R1 , 2000H 

; SPACE? 


JEQ 

GDDEL 

; YES 


Cl 

R1 , 2COOH 

; COMMA? 


JEQ 

GDDEL 

; YES 


CLR 

R1 

; NOT SUCCESSFUL 

GDDEL 

B 

*R11 

; BRANCH OUT 


SUBROUTINE TO GET DATA FROM RCBUFF, R3 IS OFFSET. 
SEARCH RCTABLE UNTIL FIND GOOD DELIMITER OR CR, 
ROTATING GOOD DATA INTO R2 ; IF FIND BAD ASCII CHAR, 
RETURN ZEROS IN R1 . DO NOT USE RO ! ! 


• 

GDATAAD 

MOV 

Rll ,R10 

; NESTED SUBROUTINE 




LINKAGE 


CLR 

R2 


GDTL 

CLR 

R1 



MOVB 

§RCBUFF(R3) ,R1 



INC 

R3 



MOV 

R1,R9 

; SAVE FOR DTASK 


Cl 

R1 , 2000H 

; SPACE? 


JEQ 

FDELCR 

; YES 


Cl 

R1 , 2COOH 

,* COMMA? 


JEQ 

FDELCR 

; YES 


Cl 

R1 , ODOOH 

; cr? 


JEQ 

FDELCR 

; YES 


BL 

0FRASCII 

; NO, TEN WHAT IS IT? 


MOV 

R5,R5 

,* GOOD DATA? 


JEQ 

BDDATA 

,* NO, GET OUT 


SLA 

R2,4 

; YES 


A 

R1,R2 

,* ADD INTO R2 


JMP 

GDTL 

,* AND DO UNTIL DELIMITER 




OR CR 

FDELCR 

C 

R3,R6 

,* IF THIS HAPPENS AT 




CHAR + R6 


JEQ 

BDDATA 

,* THEN NOTHING WAS 




THERE, ABORT. 


SETO 

R1 

,* SIGNAL GOOD DATA 


B 

*R10 


BDDATA 

CLR 

R1 

; SIGNAL BAD DATA 


B 

*R10 


FRASCII 

SRL 

Rl, 8 

; CONVERT FROM ASCII 


AI 

RI , -30H 

; SUBTRACT 3 OH 


JLT 

NOTAC 

; IF LESS THAN ZERO, 




ABORT 


Cl 

Rl, 10 

,* SEE IF FINISHED 


JLT 

GDAC 

; YES 


AI 

Rl, -7 

; FOR LETTERS 


JLT 

NOTAC 

; ABORT 


Cl 

Rl , OFH 

? BIGGER THAN F? 


JGT 

NOTAC 

; YES, YOU GUESSED IT 




— ABORT 

GDAC 

SETO 

R5 

; SIGNAL GOOD DATA 


B 

*R11 


NOTAC 

CLR 

R5 



B 

*R11 
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SUBROUTINE TO CONVERT RO TO ASCII AND STORE 
IN TXBUFF . DESTROYS RO 


MOV 

Rll , RIO 

7 

FOR NESTED SUBROUTINE 
LINKAGE 

MOV 

RO , R1 

r 

COPY DATA 

SRL 

RO, 12 

r 

SHIFT TO FIRST CHAR 

BL 

§BUFFSUB 

• 

t 

CONVERT AND STORE 

SRL 

R.O,8 



BL 

0BUFFSUB 



SRL 

RO , 4 



BL 

0BUFFSUB 



BL 

@BUFFSUB 



B 

*R10 



MOV 

Rll , R9 

t 

FOR NESTED LINKAGE 

ANDI 

RO , OFH 

r 

STRIP ALL BUT LSN 

BL 

@TASCII 

9 

TO ASCII 

SLA 

RO , 8 



MOVB 

RO, @ TXBUFF (R4) 



INC 

R4 



MOV 

R1 , RO 



B 

*R9 




; SUBROUTINE TO PUT CR, LF INTO TXBUFF 

NEWLINE LI R1 , ODOOH 

CLR R4 

MOVB R1 , ©TXBUFF (R4 ) 

INC R4 

LI R1 , OAOOH 

MOVB R1 , 0TXBUFF (R4 ) 

INC R4 

B *R11 

; SUBROUTINE TO ADD SPACE TO TXBUFF 

ADSPCE LI R1 , 2000H 

MOVB R1 , @TXBUFF (R4 ) 

INC R4 

B *R11 
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Q TASK 


• 

QTASK 

CLR 

R4 

QTLP 

MOVB 

§QMSG(R4) , 0TXBUFF (R4 ) 


MOVB 

GTXBUFF (R4 ) , RO 


SRL 

RO, 8 


INC 

R4 


Cl 

RO,"? M 


JNE 

QTLP 

PROMPT 

CLR 

R3 

PRLP 

MOVB 

§PMSG (R3) , @TXBUFF (R4 ) ;MOVE CHAR 


MOVB 

0TXBUFF (R4 ) ,RO ; CHECK FOR EOT 


SRL 

RO, 8 


INC 

R3 


INC 

R4 


Cl 

RO , EOT 


JNE 

PRLP 


CLR 

R3 


CLR 

R4 


SBO 

19 ; ENABLE 9902 INTERRUPT 


B 

*R11 
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TABLE OF X PARAMETERS 


XTAB 


ASCII 

••CO" 

WORD 

8040H 

ASCII 

"Cl" 

WORD 

8042H 

ASCII 

"C2" 

WORD 

8044H 

ASCII 

"C3" 

WORD 

8046H 

ASCII 

•»C4" 

WORD 

8048H 

ASCII 

"C5" 

WORD 

804AH 

ASCII 

"C6" 

WORD 

804CH 

ASCII 

"C7 " 

WORD 

804EH 

ASCII 

"C8" 

WORD 

8050H 

ASCII 

ii C9" 

WORD 

8052H 

ASCII 

"CA" 

WORD 

8054H 

ASCII 

«CB" 

WORD 

8056H 

ASCII 

"CC" 

WORD 

8058H 

ASCII 

"CD" 

WORD 

805AH 

ASCII 

"CE" 

WORD 

805CH 

ASCII 

" CF" 

WORD 

805EH 

ASCII 

•i DE n 

WORD 

8092H 

ASCII 

"TD" 

WORD 

8094H 

ASCII 

IIRI'I 

WORD 

8060H 

ASCII 

"R2 " 

WORD 

8062H 

ASCII 

"R3 " 

WORD 

8064H 

ASCII 

"Al" 

WORD 

8066H 

ASCII 

''A2'' 

WORD 

8068H 

ASCII 

"A3'' 

WORD 

806AH 

ASCII 

"HI" 

WORD 

806CH 


ASCII 

"LI" 

WORD 

806EH 

ASCII 

"H2" 

WORD 

8070H 

ASCII 

"L2 " 

WORD 

8072H 

ASCII 

"H3 " 

WORD 

8074H 

ASCII 

" L3 " 

WORD 

8076H 

ASCII 

"H4 " 

WORD 

8078H 

ASCII 

"L4 " 

WORD 

807AH 

ASCII 

"H5" 

WORD 

807CH 

ASCII 

"L5" 

WORD 

807EH 

ASCII 

"H6" 

WORD 

8080H 

ASCII 

"L6" 

WORD 

8082H 

ASCII 

"UH" 

WORD 

8084H 

ASCII 

"UL" 

WORD 

8086H 

ASCII 

"LH" 

WORD 

8088H 

ASCII 

"LL" 

WORD 

8 08 AH 

ASCII 

"PI" 

WORD 

808CH 

ASCII 

" P2 " 

WORD 

808EH 

ASCII 

" P3 " 

WORD 

8090H 

ASCII 

"Ml" 

WORD 

8096H 

ASCII 

"M2" 

WORD 

8098H 

ASCII 

"M3 " 

WORD 

809AH 

ASCII 

"11" 

WORD 

809CH 

ASCII 

"12" 

WORD 

809EH 

ASCII 

"13" 

WORD 

80A0H 

ASCII 

"PS" 

WORD 

80A4H 

ASCII 

" ES" 

WORD 

80A6H 

ASCII 

"TR" 



WORD 

8048H 

ASCII 

"NS" 

WORD 

80AAH 

ASCII 

"KI" 

WORD 

80B0H 

ASCII 

npO» 

WORD 

80A2H 

ASCII 

i'CT" 

WORD 

80B2H 

ASCII 

"SO" 

WORD 

80BAH 

ASCII 

"TS " 

WORD 

80BCH 

ASCII 

"PL" 

WORD 

80BEH 

ASCII 

"ET" 

WORD 

80C4H 

ASCII 

"NR" 

WORD 

80CAH 

ASCII 

"PR" 

WORD 

80CCH 

ASCII 

"EP" 

WORD 

80D4H 

ASCII 

"Dl" 

WORD 

80D6H 

ASCII 

"D2 " 

WORD 

80D8H 

ASCII 

"D3 " 

WORD 

80DAH 

ASCII 

»D4" 

WORD 

80DCH 

ASCII 

"D5" 

WORD 

80DEH 

ASCII 

"D6" 

WORD 

80E0H 

EQU 

$ 


XTABE 


TABLE OF S PARAMETERS 


STAB 


ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 

ASCII 

WORD 


"DE" 

8092H 

"TD" 

8094H 

"Al" 

8066H 

"A2" 

8068H 

'•A3 " 

806AH 

"HI" 

806CH 

"LI" 

806EH 

"H2 " 

8070H 

" L2 " 

8072H 

"H3" 

8074H 

" L3 " 

8076H 

"H4 " 

8078H 

" L4 " 

807AH 

"H5" 

807CH 

"L5" 

807EH 

"H6" 

8080H 

"L6" 

8082H 

"UH" 

8084H 

"UL" 

8086H 

"LH". 

8088H 

"LL" 

8 08 AH 
"PI" 
808CH 
" P2 " 
808EH 

n p3 II 

8090H 

"Ml" 

8096H 
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STABE 

QMSG 

PMSG 

CUMSG 

DDCS 


ASCII 

"M2" 

WORD 

8098H 

ASCII 

"M3" 

WORD 

809AH 

ASCII 

"11" 

WORD 

809CH 

ASCII 

"12" 

WORD 

809EH 

ASCII 

"13" 

WORD 

80A0H 

ASCII 

"PS" 

WORD 

80A4H 

ASCII 

"ES" 

WORD 

80A6H 

ASCII 

"TR" 

WORD 

80A8H 

ASCII 

"NS" 

WORD 

80AAH 

ASCII 

"KI" 

WORD 

80B0H 

ASCII 

”TS " 

WORD 

80BCH 

ASCII 

"PL" 

WORD 

80BEH 

ASCII 

"ET" 

WORD 

80C4H 

ASCII 

"NR" 

WORD 

80CAH 

ASCII 

"PR" 

WORD 

80CCH 

ASCII 

”EP" 

WORD 

80D4H 

ASCII 

"Dl" 

WORD 

80D6H 

ASCII 

"D2" 

WORD 

80D8H 

ASCII 

"D3" 

WORD 

80DAH 

ASCII 

it D4" 

WORD 

80DCH 

ASCII 

"D5" 

WORD 

80DEH 

ASCII 

"D6" 

WORD 

80E0H 

EQU 

$ 

BYTE 

CR , LF , " ? " , CR 

BYTE 

CR, LF, ">" , EOT 

ASCII 

•' "U" 

ASCII 

"D8040 805E" 

BYTE 

o 

o 


TTYSETUP 

WORD 

WP2 


WORD 

$+2 


CLR 

R3 


CLR 

R4 


LI 

R12 , TTYBASE 


BL 

RTWP 

§ PROMPT 

ZZZ 

# 

# 

EQU 

$ 

• 

9 

SECTION 

INTHRWM , ABSOLUTE 


ORG 

8100H 

RCBUFF 

BLOCK 

16 

TXBUFF 

BLOCK 

END 

50 
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APPENDIX E (cont.) 


NAME ST6BTASK 

TITLE "ST6B TASKS" 

SECTION ST6B1 , ABSOLUTE 

LIST ME, DBG 

GLOBAL TTY INT , TT YSETUP , WP2 

EQU 8000H 

RWM 

r 

;********************************************** 

;********************************************** 


***** 

***** 


***** 

***** 

***** 

SPACE TELESCOPE 

***** 

***** 

SIX BATTERY TEST 

***** 

***** 

***** 

CONTROLLER 

***** 

***** 

* * * * * 
***** 

BY: JOHN R. BUSH, JR. 

***** 
* * * * * 

***** 

***** 

***** 

LATEST VERSION: 02/09/88 

***** 

***** 

***** 


********************************************** 

********************************************** 


ASSIGN INTERRUPT VECTORS 



ORG 

0 



WORD 

WP1 

FIRST WORKSPACE 


WORD 

START 

ST6B SOFTWARE START 


WORD 

WP2 

TTY INTERRUPT 




WORKSPACE 


WORD 

TTYINT 

TTY INTERRUPT 




SOFTWARE START 

; BEGIN 

ST6B SOFTWARE 


f 

ORG 

80H 


; SET UP 

A TO 

D 


ATOD 

EQU 

0 


ADEOC 

EQU 

13 

END OF CONVERT 

ADSC 

EQU 

24 

START CONVERT 

SHMD 

EQU 

23 

MODE OF S/H 

MPXEN 

EQU 

18 

MULTIPLEXER ENABLE 

ADLSB 

EQU 

1 

A/D LSB 

MPXAL 

EQU 

19 

MULTIPLEXER ADDRESS 

/ 

/ 

START 

ST6B SOFTWARE 
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START 

LIMI 

0 


DISABLE INTERRUPTS 


LI 

R12 , ATOD 


A/D BASE ADDRESS 


SBZ 

MPXEN 


ENABLE LOW 


SBO 

ADSC 


START CONVERT HIGH 

# 

SBZ 

SHMD 


MODE LOW 

; SET UP D TO A 
• 




DAI 

EQU 

0100H 

• 

9 

BASE OF D/A 1 

DA2 

EQU 

0140H 

• 

9 

BASE OF D/A 2 

DA3 

EQU 

0180H 

• 

9 

BASE OF D/1 3 

BVH 

EQU 

28 

• 

9 

CRU BIT BAT V HIGH 

DALSB 

EQU 

16 

• 

9 

PORT OF LSB 

PULSE 

EQU 

28 

• 

f 

PULSE BIT CRU 
POSITION 

TFLAG 

V15 

• 

EQU 

29 

• 

9 

TRIP FLAG (TR RELAYS 
HAVE TRIPPED) 

EQU 

5 

• 

9 

15 VOLT SENSE 

9 

LI 

R12 , DAI 

• 

9 

D/A BASE ADDRESS 


SBO 

1 

• 

f 

ENABLE ONE INTERRUPT 
FOR TTY 


SBZ 

PULSE 

• 

9 

ZERO PULSE 


SBZ 

TFLAG 

• 

9 

ZERO TRIP FLAG 


SETO 

RO 

• 

# 

ALL ONES 


LI 

R12 , DA1+ (DALSB*2 ) 

• 

9 

BASE FOR DIGITAL DATA 


LDCR 

RO, 12 

• 

9 

OUTPUT ALL ONES TO 
D/A 


LI 

R1 , 0700H 

• 

9 

OTHER 2 D/AS 


LI 

R12 , DA2+ (DALSB*2) 



LDCR 

RO, 12 




LI 

R12 , DA2+ (BVH*2) 

• 

9 

BUS OVERVOLTAGE 


LDCR 

Rl, 4 

• 

9 

AND HEATER TAPE 


LI 

R12 , DA3+ (DALSB*2) 




LDCR 

RO, 12 




LI 

R12 , DA3+ (BVH*2 ) 



• 

LDCR 

Rl, 4 



? SETUP 
* 

VDT CONTROL (9902) 



RTRATE 

EQU 

209 

• 

9 

RECEIVE AND TRANSMIT 
RATE 




• 

9 

(WITH 2 MHZ CLOCK) 

CNTWD 

EQU 

0E200H 

• 

9 

CONTROL WORD (MOST 
SIG BYTE) 

TTYBASE 

• 

9 

EQU 

00C0H 

• 

9 

ADDRESS OF 9902 

• 

1 

LI 

Rl 2, TTYBASE 

• 

9 

9902 BASE ADDRESS 


LI 

RO, CNTWD 




LI 

Rl , RTRATE 




SBO 

31 

• 

9 

RESETS 9902 


LDCR 

RO, 8 

m 

9 

OUTPUT CNT WD, 
RESETS LDCTRL 
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SBZ 

13 

• 

9 

NOTHING INTO INTERVAL 
REGISTER 


LDCR 

Rl, 12 

• 

9 

DATA RATE, ALSO SETS 
ALL INTERNAL 




• 

9 

FLAGS. . .READY TO GO 


SBO 

18 

• 

9 

ENABLES 9902 RCV I NT 

; SET UP 

CCC WATCHER AND POWER SUPPLY 

CONTROL 

CCCIN 

EQU 

4 OH 

• 

9 

ADDRESS OF CCC INPUTS 

POUT 

EQU 

8 OH 

• 

9 

ADDRESS OF POWER 
SUPPLY OUTPUTS 

CCCLSB 

EQU 

1 



POUTLSB 

EQU 

16 




LI 

R12 , POUT+ (POUTLSB* 2 ) 

,‘FOR OUTPUT, DONT 





NEED INPUT 


CLR 

Rl 

• 

1 

ALL OS 

• 

# 

LDCR 

Rl , 13 




INITIALIZE ALL PARAMETERS 


DIN 

EQU 

1 

INITIAL 

DELTA 




ITD 

EQU 

88H 

INITIAL 

TIME DELAY 



H1I 

EQU 

0CA9H 

INITIAL 

DIODE 

TRIP 

POINT 

HIGH 

L1I 

EQU 

0C05H 

INITIAL 

DIODE 

TRIP 

POINT 

LOW 

H2I 

EQU 

0F99H 

INITIAL 

DIODE 

TRIP 

POINT 

HIGH 

L2I 

EQU 

OECCH 

INITIAL 

DIODE 

TRIP 

POINT 

LOW 

H3I 

EQU 

0F99H 

INITIAL 

DIODE 

TRIP 

POINT 

HIGH 

L3I 

EQU 

OECCH 

INITIAL 

DIODE 

TRIP 

POINT 

LOW 

H4I 

EQU 

0F99H 

INITIAL 

DIODE 

TRIP 

POINT 

HIGH 

L4I 

EQU 

OECCH 

INITIAL 

DIODE 

TRIP 

POINT 

LOW 

H5I 

EQU 

0F99H 

INITIAL 

DIODE 

TRIP 

POINT 

HIGH 

L5I 

EQU 

OECCH 

INITIAL 

DIODE 

TRIP 

POINT 

LOW 

H6I 

EQU 

0F99H 

INITIAL 

DIODE 

TRIP 

POINT 

HIGH 

L6I 

EQU 

OECCH 

INITIAL 

DIODE 

TRIP 

POINT 

LOW 

UHI 

EQU 

2ABH 

INITIAL 

PLATE 

TEMPS TOP HIGH 

ULI 

EQU 

290H 

UPPER LOW 




LHI 

EQU 

2ABH 

LOWER HIGH 




LLI 

EQU 

2 9 OH 

LOWER LOW 




APRV1I 

EQU 

410 

INITIAL 

GUESS 

FOR PRVS (10 A) 

APRV2I 

EQU 

410 






APRV3I 

EQU 

410 






P1I 

EQU 

733 1 

731W INITIAL 




P2I 

EQU 

717 






P3I 

EQU 

733 






Mil 

EQU 

0E66H 






M2 1 

EQU 

0E66H 






M3 1 

EQU 

0E66H 






III 

EQU 

1229 i 

30 AMPS 

(LOAD 

BANK 

I, 15/BATT) 

121 

EQU 

1229 






131 

EQU 

1229 






PSI 

EQU 

0 i 

POWER SUPPLY CONTROL 


TRI 

EQU 

1 ; 

NO. OF TRIPS BEFORE P.S. 



SHUTOFF 


NSI 

TSI 

PLI 

TRFI 

DNFI 

ETI 

ETCCI 

EPI 

Dll 

D2I 

D3I 

D4I 

D5I 

D6I 


EQU 

8 

• 

9 

EQU 

OFFFH 

m 

9 

EQU 

50 

• 

9 

EQU 

0 

• 

9 

EQU 

0 

• 

9 

EQU 

14 


EQU 

100H 


EQU 

325 


EQU 

50 

• 

9 

EQU 

50 

• 

9 

EQU 

83 

m 

9 

EQU 

83 


EQU 

67 


EQU 

67 


MACRO 

WINIT 

• 

9 

LI 

RO, '1' 


MOV 

ENDM 

RO , § ' 2 ' 



WINIT 

DIN , DE 

WINIT 

ITD,TDLY 

WINIT 

H1I,H1 

WINIT 

L1I , LI 

WINIT 

H2I ,H2 

WINIT 

L2I , L2 

WINIT 

H3I,H3 

WINIT 

L3I,L3 

WINIT 

H4I , H4 

WINIT 

L4I , L4 

WINIT 

H5I , H5 

WINIT 

L5I , L5 

WINIT 

H6I , H6 

WINIT 

L6I,L6 

WINIT 

UHI , UH 

WINIT 

ULI , UL 

WINIT 

LHI , LH 

WINIT 

LLI,LL 

WINIT 

APRV1I , APRV1 

WINIT 

APRV2 I , APRV2 

WINIT 

APRV3 I , APRV3 

WINIT 

P1I,P1 

WINIT 

P2I , P2 

WINIT 

P3I , P3 

WINIT 

Mil, Ml 

WINIT 

M2I,M2 

WINIT 

M3I ,M3 

WINIT 

111,11 

MOV 

RO , @12 


TOTAL NO. OF SPAS OFF AT 

TR=CCC TRIPS 

MAX AVG TEMP ON PLATES 

CYCLES BETWEEN PULSES 

TRIP BACK FLAG 

DAY NIGHT FLAG 


DELTA POWER FOR ADD FIRST TIME 
OUT 

DELTA POWER FOR SUB SECOND 
TIME OUT 
DELTA. ... 


MACRO DEFINITION 
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MOV 

RO , §13 


WINIT 

PSI , PS 


MOV 

RO,@ES 


MOV 

RO , @TRF 


MOV 

RO , @DNF 


MOV 

RO, §KI 


MOV 

RO, 0LBCNT 


MOV 

RO, @PR 


MOV 

RO, @EPC 


MOV 

RO , 0EPCC 


WINIT 

TRI , TR 


MOV 

RO , 0NEWRF 


WINIT 

EPI , EP 


WINIT 

Dll , D1 


WINIT 

D2I,D2 


WINIT 

D3I , D3 


WINIT 

D4I , D4 


WINIT 

D5I , D5 


WINIT 

D6I,D6 


WINIT 

NSI , NS 


WINIT 

TSI , TS 


WINIT 

PLI , PL 


MOV 

RO, @PLC 


WINIT 

ETI, ET 


WINIT 

ETCCI , ETCC 


BLWP 

§TTYSETUP 

; GO SETUP TTY 
WORKSPACE AND 
; PUT OUT PROMPT 

LIMI 

/ 

1 

; ENABLE INTERRUPTS 

; SAMPLE 

ROUTINE 


SAMPLE LI 

R2 , CHLO 

; CHANNEL 0 STORAGE 
ADDRESS 

LI 

R1 , 0016 

; COUNTER 

CLR 

RO 

; ADDR OF MPX ANALOG 
INPUT 

SAMPLOOP LI 

R12 , MPXAL*2 

; BASE OF MPX ADDR 

SLA 

RO , 8 

; GET TO MSB FOR LDC 

LDCR 

RO , 4 

; SEND OUT ADDR 

SRL 

RO , 8 

; GET BACK FOR INC 

LI 

R12 , ATOD 

; BASE 

LIMI 

0 

; MUST DISABLE 
INTERRUPTS 

SBO 

MPXEN 

; ENABLE MPX 

SBO 

SHMD 

; SAMPLE 

SBO 

SHMD 

; WAIT 

SBZ 

SHMD 

; HOLD 

SBZ 

MPXEN 

; DISABLE MPX 

SBZ 

ADSC 

; START CONVERSION 

SBO 

ADSC 

; PROCESS 

NOTEOC TB 

ADEOC 

; SEE IF THROUGH 



JEQ 

NOTEOC 

,'NO, WAIT 


LI 

R12 ,ADLSB*2 

; BASE OF ADLSB 


STCR 

R4 , 12 ; GET DIGITAL 

DATA 


LIMI 

1 

; ENABLE INTERRUPTS 


INV 

R4 

? A/D INVERTING TYPE 


ANDI 

R4 , OFFFH 

; STRIP LEADING ONES 




FROM INV 


MOV 

R4 , *R2+ 

; STORE INVERTED DATA 


INC 

RO 

; INC ADDR OF MPX 


DEC 

R1 

; DEC COUNTER 


JNE 

SAMPLOOP 

; DO 16 TIMES 

; CORRECT CHLS 
• 

1-9 WITH CHLO (OFFSET) . 


9 

LI 

Rl, 0 



LI 

R2 , CHL1 


CLOOP 

S 

@CHLO, *R2 



JGT 

NNEG 



CLR 

*R2 


NNEG 

INCT 

R2 



DEC 

Rl 



JNE 

CLOOP 



9 

; FIRST OF ALL, SEE IF IN TRICKLE CHARGE/CAP TEST (CONSTANT 
; CURRENT DISCHARGE MODE) (KI = 1) . IF SO AND IN NIGHT 
? THEN PRVS « 11,12,13. IF IN DAY THEN DO THIS... 

; IF (VB1+VB2)/2>M1 THEN PRV1-2048 (APRVS INC SLOWLY IN 
OUTPRV) 

,* ELSE PRV1-0. SAME FOR 3-4, AND 5-6. 

t 



MOV 

@KI , @KI 



JEQ 

CLOAD 



LI 

R12 , DAI 



TB 

4 

; DAY/NIGHT FLAG HERE 


JEQ 

TRC 


MOV 

@I1,@PRV1 



MOV 

@12 , @PRV2 



MOV 

@13 , @PRV3 



B 

OUTPRV 


TRC 

LI 

R2 , 2048 



MOV 

@VB1 , Rl 



A 

@VB2 , Rl 



SRL 

Rl, 1 

; DIVIDE BY 2 


C 

Rl , @M1 



JLT 

ZPRVI 



MOV 

R2 , 0PRV1 



JMP 

CKV3V4 


ZPRV1 

CLR 

@PRV1 


CKV3V4 

MOV 

@VB3 , Rl 



A 

@VB4 , Rl 



SRL 

Rl, 1 



C 

Rl , @M2 



JLT 

ZPRV2 



MOV 

R2 , @PRV2 



JMP 

CKV5V6 
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ZPRV2 

CLR 

©PRV2 

CKV5V6 

MOV 

©VB5 , Rl 


A 

©VB6,R1 


SRL 

Rl, 1 


C 

R1,©M3 


JLT 

ZPRV3 


MOV 

R2 , f PRV3 


JMP 

OUTPRV 

ZPRV3 

CIA 

©PRV3 


JMP 

OUTPRV 


CALCULATE V TO OUTPUT TO LOAD BANKS AT . IV/ AMP 
P1.P2.P3 - EACH LB POWER DESIRED; VLB1 , VLB2 , VLB3- 
EACH LB VOLTAGE RANGED 0-40V (CHL1,2,3, 0-10V IN) 
EQUATION IS: , 

PI ( , 2 , 3) *4095/VLBl ( , 2 , 3) *4095/4000 WHERE VLB1(,2,3)> 
63 (MIN VOLTAGE FOR 32 BITS AT 1000W) AND FINAL 
ANSWER < 2048 (MAX INPUT TO LOAD BANKS) 


CLOAD LI 

LI 
MOV 
Cl 
JEQ 
MOV 
BL 

CON 2 MOV 

MOV 
Cl 
JEQ 
MOV 
BL 

CON 3 MOV 

MOV 
Cl 
JEQ 
MOV 
BL 

CON 4 MOV 

JMP 

CALC MOV 

JNE 
MOV 
JEQ 
MOV 
JEQ 
DEC 
JMP 

TEPC MOV 

JEQ 
DEC 
JMP 

LBRT INC 

MOV 


R3 , 4095 
R4 , 4000 
§P1,R1 
Rl, 0 
CON 2 

0VLB1 , R5 
©CALC 
Rl , §PRV1 
©P2 , Rl 
Rl, 0 
CON3 

©VLB2,R5 
©CALC 
R1,©PRV2 
©P3 ,R1 
Rl, 0 
CON4 

©VLB3,R5 

©CALC 

Rl, 0PRV3 

OUTPRV 

©TRF , R7 

CALCC 

©PR,R7 

CALCC 

©EPCC,R7 

TEPC 

©EPCC 

LBRT1 

©EPC,R7 

LBRT 

©EPC 

LBRT2 

©LBCNT 

§EP, §EPC 


POWER DESIRED 


SAMPLED VOLTAGE 
TO CALCULATE 
STORE IT 
ETC 3 TIMES 
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LBRT2 


LBRT1 


CLBCNT1 


CLBCNT2 


CLBCNT3 


CLBCNT4 

CLBCNT5 

CALCCS 

CALCCA 

CALCC 


CONI 


ZEROl 

FCALC 

OUTPRV 


INCP1 


LI 

R7 , ETCCI 


MOV 

R7 , 0EPCC 


MOV 

§LBCNT, R7 


Cl 

R7, 1 


JNE 

CLBCNT1 


MOV 

@D1,R8 


JMP 

CALCCA 


Cl 

R7 , 2 


JNE 

CLBCNT2 


MOV 

@D2,R8 


JMP 

CALCCS 


Cl 

R7 , 3 


JNE 

CLBCNT3 


MOV 

§D3 ,R8 


JMP 

CALCCA 


Cl 

R7 , 4 


JNE 

CLBCNT4 


MOV 

@D4 ,R8 


JMP 

CALCCS 


Cl 

R7, 5 


JNE 

CLBCNT5 


MOV 

@D5 , R8 


JMP 

CALCCA 


Cl 

R7 , 6 


JNE 

CALCC 


MOV 

§D6,R8 


S 

R8,R1 


JMP 

CALCC 


A 

RI,R1 


Cl 

R5, 63 


JLT 

ZEROl 


Cl 

Rl , 1000 


JLT 

CONI 


LI 

Rl, 1000 


MPY 

R3,R1 

• 

9 

DIV 

R5,R1 

• 

9 

MPY 

R3,R1 

• 

9 

DIV 

R4,R1 

• 

9 

JMP 

FCALC 

• 

9 

CLR 

Rl 


B 

*R11 


LI 

Rl, 2048 

• 

9 

C 

§PRV1 , §APRV1 

• 

9 

JEQ 

RV2 

• 

9 

JGT 

INCP1 

• 

9 

C 

§APRV1,@DE 

9 

JLE 

RV2 


S 

@DE, @APRV1 


JMP 

RV2 


A 

@DE,eAPRVl 



SEE IF TOO LOW 
IF SO, PRV=0 
1000W MAX 


PX*4095->R1,R2 
THAT / VLBX -> Rl, 
REM IN R2, DISC REM 
THAT*4095->R1 , R2 
FINAL ANS IN Rl, REM 
IN R2, DISC REM 
SKIP OVER ZERO 


MAX OUTPUT 

COMPARE CALCULATED 

WITH ACTUAL 

EQUAL DO NOTHING 

TO INCREMENT 

DONT DECREMENT IF =< 

DE 
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0APRV1 , R1 


SEE IF TOO BIG 


C 

JLT RV2 
MOV 

RV2 C 

JEQ 

JGT 

C 

JLE 

S 

JMP 

INCP2 A 

C 

JLT 

MOV 

RV3 C 

JEQ 

JGT 

C 

JLE 

S 

JMP 

INCP3 A 

C 

JLT 

MOV 


R1,0APRV1 
0PRV2 , @APRV2 
RV3 
INCP2 

0APRV2 , §DE 
RV3 

@DE , 0APRV2 
RV3 

@DE,@APRV2 
0APRV2 , R1 
RV3 

R1 , 0APRV2 
0PRV3 , @APRV3 
OUTP 
INCP3 

0APRV3 , @DE 
OUTP 

@DE , 0APRV3 
OUTP 

@DE , 0APRV3 
0APRV3 , R1 
OUTP 

R1 , 0APRV3 


; IF STATUS OFF (EXT SWITCH TO GND) 
; THEN ALL OUTPUTS TO 0 


ETC 3 TIMES 


OUTP 


COUTP 


LI 

R12 , DAI 

BASE FO DIGITAL INPUT 

TB 

3 

CRU ADDR OF SW 

JEQ 

COUTP 

HIGH, CONTINUE 

CLR 

0APRV1 

CLR ALL APRVS 

CLR 

0APRV2 


CLR 

0APRV3 


SETO 

R1 

ALL IS 

LI 

R12 , DA1+ (DALSB*2 ) 

BASE OF FIRST PRV, 
ETC 3 TIMES 

LDCR 

Rl, 12 


LI 

R12 , DA2+ (DALSB*2 ) 


LDCR 

Rl, 12 


LI 

R12 , DA3+ (DALSB*2 ) 


LDCR 

Rl, 12 


JMP 

CKVBS 

TO CHECK BUS VOLTS 

MOV 

0APRV1 , Rl 

OUTPUT APRVS 

INV 

Rl 

D/A INVERTING TYPE 

LI 

R12 , DA1+ (DALSB*2 ) 

BASE OF PRV1 

LDCR 

Rl, 12 


MOV 

§APRV2 , Rl 


INV 

Rl 


LI 

R12 , DA2+ (DALSB*2 ) 


LDCR 

Rl ,12 


MOV 

@APRV3 , Rl 


INV 

Rl 
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LI 

R12,‘DA3+(DALSB*2) 

• 

LDCR 

Rl, 12 

? IF ANY 

TWO DIODE 

BUSSES > HJ. THEN OPEN RELAYS 

; (ADD DIODES) . 

; IF ANY 
• 

TWO DIODE 

BUSSES < LI THEN CLOSE RELAYS 

CKVBS 

LI 

R12 , DA2+BVH*2 


CLR 

Rl 


CLR 

R2 


C 

0VLB1 , §H1 


JLT 

CKB2H 


INC 

Rl 

CKB2H 

C 

6VLB2 , @H1 


JLT 

CKB3H 


INC 

Rl 

CKB3H 

C 

6VLB3 , §H1 


JLT 

CKR1H 


INC 

Rl 

CKR1H 

Cl 

Rl, 2 


JLT 

CKB1L 


LDCR 

R2 , 3 


LI 

R12 , DA3+BVH*2 


LDCR 

R2 , 3 

CKB1L 

LI 

R12 , DA2+BVH*2 


CLR 

Rl 


SETO 

R2 


C 

6VLB1, @L1 


JGT 

CKB2L 


INC 

Rl 

CKB2L 

C 

@VLB2 , §L1 


JGT 

CKB3L 


INC 

Rl 

CKB3L 

C 

§VLB3 , §L1 


JGT 

CKR1L 


INC 

Rl 

CKR1L 

Cl 

Rl, 2 


JLT 

DOTEMP 


LDCR 

R2 , 3 


LI 

R12 , DA3+BVH*2 


LDCR 

R2,3 


; AVERAGE 3 EACH THERMISTOR ON EACH PLATE 
; (UPPER AND LOWER) , IF > UH (OR LH) THEN TURN 
: OFF HEATER, IF < UL (OR LL) THEN TURN ON HEATER. 

? UH IS THE UPPER PLATE HIGH TEMP, LH IS THE LOWER PLATE HIGH 
TEMP. 

; UL IS THE UPPER PLATE LOW TEMP, LL IS THE LOWER PLATE LOW 


TEMP. 

• 


DOTEMP LI 

R12 , DA2 

LI 

R3,3 

CLR 

Rl 

MOV 

§T1,R2 
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SUM 


A §T2,R2 

A ®T3,R2 

DIV R3 ,R1 

MOV R1,R6 

C Rl,eUH 

JLT CKLT 

SBZ BVH+3 

JMP CKHB 

CKLT C R1 , §UL 

JGT CKHB 

SBO BVH+3 


CKHB LI 

CLR 
MOV 
A 
A 

DIV 

A 

SRL 

MOV 

C 

JLT 

SBZ 

JMP 

CKLB C 

JGT 

SBO 


R12 , DA3 
R1 

@T4 , R2 
@T5 , R2 
0T6 , R2 
R3,R1 
R1,R6 
R6, 1 

R6,0TAVG 

Rl, 0LH 

CKLB 

BVH+3 

TRRT 

R1,@LL 

TRRT 

BVH+3 


WAS TOO HIGH, OFF 
HEATER 


WAS TOO LOW, ON 
HEATER 


TRIP BACK ROUTINE 

TR IS NO. OF CCC TRIPS (CCCT) THAT OCCUR BEFORE 

ANY POWER SUPPLIES ARE CUT OFF. IF TR - 0 THIS 

ROUTINE IS SKIPPED. 

NS IS THE TOTAL NO. OF EQUIVALENT SPAS TAKEN OFF. 

IF THE CCC DISCONNECTS A P.S. THEN THE OTHER P.S. FOR THAT 

BATTERY IS LEFT ALONE. THE ROUTINE FIRST CHECKS IF IT CAN 

REMOVE NS SPAS WITH THE REMAINING 1 SPA P.S.S BEGINNING 
WITH THE 1 SPA P.S. RIGHT AFTER THE BATTERY (OR THE FIRST 
ONE IT SEES) THAT THE CCC CUT OFF. IF IT CAN IT DOES, ELSE 
IT GOES BACK, ADDS THE ONE SPA P.S. AND TAKES OUT THE 2 SPA 
P.S. (ALL THIS IS CHECKED BEFORE ANY ARE ACTUALLY SHUT OFF) 
ONCE THE ROUTINE CUTS OFF THE P.S. (S) , IT DOESNT CHECK 
ANYMORE. 

POWER SUPPLIES CAN BE COMMANDED OFF BY SETTING THE 
PARAMETER "PS" IN BINARY (YOU FIGURE THE HEX INPUT TO THE 
TTY) 

ANY "1" IN THE WORD MEANS "OFF". 

IN CASE YOU MESS UP AND TURN OFF TOO MANY IN THE ROUTINE, 
P.S.S CAN BE TURNED BACK ON THIS DAY ONLY BY SETTING THE 
PARAMETER "ES". ANY "ONE" MEANS ON. 
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; THE FORMAT IS ES , B6K2 , B6K1 , B5K2 , B5K1, . . . , B2K2 , B2K1 , B1K2 , 
B1K1 . ( 13 BITS) 

? WHERE ES IS THE EXTRA 2 SPAS. 



MACRO 

AND 



MOV 

§ ' 1 ' , R7 



INV 

R7 



MOV 

§'2' (R2) ,R8 



INV 

R8 



SOC 

R7,R8 



INV 

R8 


• 

ENDM 



TRRT 

LI 

R12 , DAI 



TB 

4 



JEQ 

TODAY 

; 0 IF NIGHT , 1 IF DAY 


SETO 

§PSOUT 

; ALL PSS OFF 


CLR 

ess 

; RESET THOSE THAT WERE 




TURNED ON 


CLR 

@STT 

; JUST IN CASE 


CLR 

@TRF 

; RESET TRIP FLAG IF 




NIGHT 


CLR 

§DNF 

; DAY NIGHT FLAG TO 0 


SBZ 

TFLAG 

; TRIP FLAG ALWAYS 0 IN 




NIGHT 

BACK 

B 

OUTPS 

? TO OUTPUT 

TODAY 

MOV 

§DNF, @DNF 

; CHECK FLAG 


JNE 

TETR 

? WAS SET, JUMP 


INC 

@DNF 

; FIRST DAY CYCLE 


CLR 

§CCCT 

; CCC TRIPS 


LI 

R9 , OFFFH 

; MASK 


MOV 

R9 , §SLTN 



CLR 

§TRF 

? TRIP BACK FLAG 


CLR 

§STT 



CLR 

§SPOFF 



CLR 

§PSOUT 



JMP 

BACK 

; FIRST TIME THROUGH GO 




TO OUTPUT 

TETR 

MOV 

§TR, §TR 

7 IF 0 GET OUT 


JEQ 

BACK 



MOV 

§TRF , §TRF 

7 IF 1 GET OUT 


JEQ 

MAJR 



MOV 

@NEWRF,RO 

7 GO TO NEW ROUTINE? 


JEQ 

BACK 


• 

B 

NEWR 


7 MAJOR 

ROUTINE 



MAJR 

LI 

R12 , CCCIN+ (CCCLSB*2 ) 


STCR 

§STT, 12 

7 INPUT FROM CCC 


CLR 

R2 



AND 

STT,SLTN 

7 IF 0, NOTHING CHANGED 


MOV 

R8 , §STTSLTN 

7 SAVE IT, IF 0 NOTHING 




CHANGED 


JEQ 

STEP6 

7 JUMP AHEAD IN CASE TR 
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CHANGED 

STRIP LEADING OS 
SAVE INVERTED STT 


ANDI 

MOV 

CLR 

CSPA AND 

JEQ 

AND 

JNE 

INC 

SPOl INC 

INC 

NKTRB INCT R2 
Cl 
JNE 

STEP6 C 

JGT 

INC 

CLR 

CLR 

CLR 

LI 

SBO 

MOV 

MOV 

JEQ 

MOV 

LI 

MOV 

B 

STEP7 LI 
CLR 

STEP8 AND 
JNE 
INCT 

DEC 

JNE 

CLR 

JMP 

STEP9A INCT 

STEP9 LI 
MOV 

STEP10B C 

JEQ 

JLT 

AND 

JNE 

SOC 

INC 

STEP10A DEC 
JEQ 
INCT 


R7 , OFFH 
R7 , 0SLTN 
R2 

STTSLTN,MB1 

NKTRB 

STTSLTN, B1S1 

SPOl 

0SPOFF 

0SPOFF 

0CCCT 

R2, 12 
CSPA 

0TR, 0CCCT 

OUTPSB 

0TRF 

0LBCNT 

0EPCC 

0EPC 

R12 , DAI 

TFLAG 

0STT, 0PSOUT 
0NEWRF , RO 
STEP7 
0ET , 0ETC 
RO , ETCCI 
RO , 0ETCC 
NEWR 
R1 , 5 
R2 

STT,MB1 

STEP9A 

R2 

R1 

STEP8 

R2 

STEP9 

R2 

Rl, 5 
R2,R0 

0NS , 0SPOFF 

OUTPSB 

OUTPSB 

PSOUT,MBl 

STEP10A 

0B1S1 (R2) , 0PSOUT 

0SPOFF 

Rl 

STEP11A 

R2 


; SEE IF TRIP ON EACH 
BATTERY 
; NO, JUMP 
; SEE HOW MANY WENT 
; IF 0, 2 WENT 
; IF NOT ZERO, 1 WENT 

: COUNT TRIPS 


; IF TR > CCCT, NOT YET 
; TIME TO DO IT 


; SIGNAL TRIPBACK 
; NEW ROUTINE? 


; FIND ONE THAT CCC BID 

; LOOK AGAIN 4 MORE 
TIMES OR. . . 


; ONLY HERE IF B6 


; SEE IF CAN TAKE OFF 
1SPA PS 


IF 0, CAN DO 
OR INTO PSOUT WORD 
INC NO. OF SPA OFF 
SIX BATTS? 
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Cl 

R2 , 12 




JNE 

STEP10B 




CLR 

R2 




JMP 

STEP10B 



STEP11A 

MOV 

RO , R2 

• 

9 

IF HERE, HAVE TAKEN 1 





OFF ALL 


LI 

Rl, 5 

• 

9 

BATTS AND NOT ENOUGH 





YET 

STEP11B 

C 

§NS,§SPOFF 




JEQ 

OUTPSB 




JLT 

OUTPSB 



STEP12 

AND 

STT , MB1 

• 

9 

SEE IF CCC DID IT, IF 





NOT, DO IT 


JNE 

STEP12B 




SZC 

§B1S1(R2) ,§PSOUT 

• 

9 

PUT SINGLE SPA BACK 


SOC 

§B1S2(R2) ,@PSOUT 

• 

9 

TAKE OUT DOUBLE SPA 


INC 

0SPOFF 



STEP12B 

DEC 

Rl 




JEQ 

OUTPSB 

m 

9 

DONE 6 YET? 


INCT 

R2 




Cl 

R2 , 12 




JNE 

STEP11B 




CLR 

R2 



• 

JMP 

STEP11B 



OUTPSB 

B 

OUTPS 

• 

9 

GET WITHIN RANGE 


; NEW ROUTINE 


; TAKE OFF 1 SPA EVERY X SECONDS (DETERMINED BY SETTING 
; THE CAP ET) BEGINNING WITH BATTERY 1 AND GOING THROUGH 


; ALL 6 UNTIL HAVE 

TAKEN OFF NS 

SPAS. THIS DOES NOT REMOVE 

; ANY SPAS FROM A 

BATTERY WHOSE 

CCC TRIPPED OFF A POWER 

SUPPLY . 

• 



NEWR DEC 

0ETCC 


JNE 

OUTPS 


DEC 

§ETC 


JEQ 

NEWRL1 


LI 

RO , ETCCI 


MOV 

RO , 0ETCC 


JMP 

OUTPS 


NEWRL1 CLR 

R2 

? TIME TO DO SOMETHING 

MOV 

§ET> 0ETC 


LI 

RO , ETCCI 

; GETTING READY FOR 



NEXT TIME 

MOV 

RO , 0ETCC 


NEWRL2 C 

@NS , 0SPOFF 


JEQ 

OUTPS 


JLT 

OUTPS 


AND 

STT,MB1 

; IF 1, GO TO NEXT BATT 

JEQ 

NEWRL3 

; IF 0, CHECK PSOUT FOR 



1 OR 2 SPAS 

INCT 

R2 


Cl 

R2 , 12 



94 


NEWRL3 


NEWRL4 


NEWRL5 


JEQ 

OUTPS 

JMP 

NEWRL2 

AND 

PSOUT, B1S2 

JNE 

NEWRL5 

AND 

PSOUT, BIS 1 

JNE 

NEWRL4 

SOC 

@B1S1(R2) ,§PSOUT 

INC 

0SPOFF 

JMP 

OUTPS 

SZC 

0B1S1 (R2) , 0PSOUT 

SOC 

0B1S2 (R2) , § PSOUT 

INC 

0SPOFF 

JMP 

OUTPS 

INCT 

R2 

Cl 

R2 , 12 

JNE 

NEWRL2 


; IF NOT 0, 2 SPA IS 
ALREADY OUT 
? GO TO NEXT BATTERY 
; IF 0, TAKE OUT 1 SPA 
? AND GET OUT 


; PUT 1 SPA BACK 
; REMOVE 2 SPA 


; GO TO NEXT BATTERY 


TIME TO OUTPUT 

DONT TURN OFF THOSE THAT CCC TURNED OFF (STT) 

TURN OFF THOSE THAT ARE FLAGGED BY "PS" 

TURN ON THOSE THAN ARE FLAGGED BY "ES" (RESET EACH ORBIT) 


OUTPS MOV 
SZC 

SOC 

SZC 

LI 

LDCR 


@PS0UT,R1 

@STT,R1 ; DONT TURN OFF IF CCC 

OPENED 

0PS,R1 ; TURN OFF THOSE 

FLAGGED BY "PS" 

@ES,R1 ; TURN ON THOSE 

FLAGGED BY "ES" 

R12 , POUT+ (POUTLSB*2 ) 

Rl, 13 


; TIME DELAY 

TDLP MOV @TDLY,RO 

TDLPL DEC RO 

JNE TDLPL 


PULSE ROUTINE 

SHOULD PUT OUT PULSE EVERY SECOND SO NOT TO GET TIMEOUT 
ON ST HARDWARE. I.E., IF CC QUITS, ST TEST SHUTS DOWN. 

A 60 US PULSE IS PUT OUT EVERY "PL" SOFTWARE CYCLES SO "TD" 
(TIME DELAY BETWEEN CYCLES) WILL HAVE AN EFFECT ALSO. 

THIS ALSO SENSES THE 15V SUPPLY AND STOPS PULSES IF IT 

FAILS. ALSO, IF THE AVERAGE OF THE SIX PLATE TEMPS 

EXCEEDS "TS", IT STOPS PULSES (CHAMBER FAIL HIGH TEMP) 

THIS ASSUMES THAT THE BATTERY HEATERS CAN KEEP THEM WARM 
IF THE CHAMBER FAILS LOW. 

LI R12 , DAI 

TB V15 

JNE OUTSAM 

C @TAVG, @TS 




JGT 

OUTSAM 


DEC 

§PLC 


JNE 

OUTSAM 


MOV 

@PL, §PLC 


LI 

Rl, 10 


SBO 

PULSE 

TOL 

DEC 

Rl 


JNE 

TOL 

• 

SBZ 

PULSE 

; END OF 
• 

LOOP . . . 

. . SO DO FOREVER 

OUTSAM 

B 

SAMPLE 

MB1 

WORD 

11B, 1100B, 110000B, 11000000B, 1100000000B, 
110000000000B 

B1S2 

WORD 

01B, 0100B, 010000B, 01000000B, 0100000000B, 
010000000000B 

B1S1 

WORD 

10B, 1000B, 100000B, 10000000B, 1000000000B, 
100000000000B 

ZZZ 

# 

9 

EQU 

$ 

* 

t 

• 

SECTION 

TASKRWM , ABSOLUTE 

9 

• 

ORG 

RWM 

WP1 

BLOCK 

32 

WP2 

• 

9 

BLOCK 

32 

# 

CHLO 

BLOCK 

2 ; CO EXAMINE 

CHL1 

BLOCK 

2 ? Cl 

CHL2 

BLOCK 

2 ; ETC 

CHL3 

BLOCK 

2 

CHL4 

BLOCK 

2 

CHL5 

BLOCK 

2 

CHL6 

BLOCK 

2 

CHL7 

BLOCK 

2 

CHL8 

BLOCK 

2 

CHL9 

BLOCK 

2 

CHL10 

BLOCK 

2 ; CA 

CHL11 

BLOCK 

2 

CHL12 

BLOCK 

2 

CHL13 

BLOCK 

2 

CHL14 

BLOCK 

2 

CHL15 

BLOCK 

2 

PRV1 

BLOCK 

2 ; Rl 

PRV2 

BLOCK 

2 ; R2 

PRV3 

BLOCK 

2 ? R3 

APRV1 

BLOCK 

2 ; A1 EXAMINE AND SET 

THE REST 

APRV2 

BLOCK 

2 ; A2 

APRV3 

BLOCK 

2 ; A3 

HI 

BLOCK 

2 
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LI 

BLOCK 

2 

H2 

BLOCK 

2 

L2 

BLOCK 

2 

H3 

BLOCK 

2 

L3 

BLOCK 

2 

H4 

BLOCK 

2 

L4 

BLOCK 

2 

H5 

BLOCK 

2 

L5 

BLOCK 

2 

H6 

BLOCK 

2 

L6 

BLOCK 

2 

UH 

BLOCK 

2 

UL 

BLOCK 

2 

LH 

BLOCK 

2 

LL 

BLOCK 

2 

PI 

BLOCK 

2 

P2 

BLOCK 

2 

P3 

BLOCK 

2 

DE 

BLOCK 

2 

TDLY 

BLOCK 

2 

Ml 

BLOCK 

2 

M2 

BLOCK 

2 

M3 

BLOCK 

2 

11 

BLOCK 

2 

12 

BLOCK 

2 

13 

BLOCK 

2 

PSOUT 

BLOCK 

2 

PS 

BLOCK 

2 

ES 

BLOCK 

2 

TR 

BLOCK 

2 

NS 

BLOCK 

2 

TRF 

BLOCK 

2 

DNF 

BLOCK 

2 

KI 

BLOCK 

2 

CCCT 

BLOCK 

2 

STT 

BLOCK 

2 

SLTN 

BLOCK 

2 

STTSLTN 

BLOCK 

2 

SPOFF 

BLOCK 

2 

TS 

BLOCK 

2 

PL 

BLOCK 

2 

PLC 

BLOCK 

2 

TAVG 

BLOCK 

2 

ET 

BLOCK 

2 

ETC 

BLOCK 

2 

ETCC 

BLOCK 

2 

NEWRF 

BLOCK 

2 

PR 

BLOCK 

2 

EPC 

BLOCK 

2 

EPCC 

BLOCK 

2 

LBCNT 

BLOCK 

2 

EP 

BLOCK 

2 


; TD 


; FLAG TO DO POWER STEP 
ROUTINE 


? WHICH STEP 
; COUNTER INITIAL VALUE 
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D1 

BLOCK 

2 

; FIRST POWER DELTA 
(ADD) 

D2 

BLOCK 

2 

; SECOND POWER DELTA 
(SUB) 

D3 

BLOCK 

2 

; THIRD. .ETC. . . 

D4 

BLOCK 

2 


D5 

BLOCK 

2 


D6 

• 

t 

BLOCK 

2 


• 

VLB1 

EQU 

CHL1 


VLB2 

EQU 

CHL2 


VLB3 

EQU 

CHL3 


VB1 

EQU 

CHL4 


VB2 

EQU 

CHL5 


VB3 

EQU 

CHL6 


VB4 

EQU 

CHL7 


VB5 

EQU 

CHL8 


VB6 

EQU 

CHL9 


T1 

EQU 

CHL10 


T2 

EQU 

CHL11 


T3 

EQU 

CHL12 


T4 

EQU 

CHL13 


T5 

EQU 

CHL14 


T6 

9 

EQU 

CHL15 


9 

END 

START 
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